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GENERAL INFORMATION 


pote BIBENESS TE GOOUFTER A ee WORDS OF MEMORY AND IS poreng em 8 WITH 
Beru FO OR DETRIL® OF SEMAINING PROCEDURE wits oS lf aotsetr a INED 


C USER WE VE" INCORPORATED INTO 
TTB CONTROL ROMULE WHICH WILL REATER ‘Se RELEASED INDEPENDENTLY A 


N_TH TIC ART CONTROL GOES 
NES RPE Sold RTS ASE ET Sly coe 
RODE, NDICATED BY RARACTER® COMMAND MODE THE OPERATOR 

“ ER ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 
RVISOR CODING IMMEDIATELY THE DIAGNOSTIC TEST C 
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.2 DIAGNOSTIC INFORMATION 
THE RLII/RLV11 CONTROLLER TEST (PART 1 A PDP-11 (LSI-11) 
FectinGetie TeipaPite Bele "Rceieles ae ieutartat bape 
FUNCTIONALITY WHICH INCLUDES Pp F TATUS, READ HEADERS AND 
SEEK OPERATIONS. iT IS AIMED AT FULLY TESTING THE CONTROLLER 
IN THESE AREAS T BY DEFAULT ALSO EXERCISES THE DRIVE. THE 
TEST COVERAGE OF THE PROGRAM IS EXTREMELY HIGH. 


PDP-11/LSI-11 PROCESSOR WITH 16k QR MORE OF CORE 
CONSOLE DEVICE (LASO,LA36,VTSO,ETC. 

RLLI/REVII CONTROLLER(S) 

1 - 8 RLOI DRIVES 

1 - 8 RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KWilP, KW11L (OPTIONAL) 

LINEPRINTER(OPTI j 
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1.3 RELATED DOCUMENTS AND STANDARDS 
—srintataeiesanaeneeaenenmeaeenemaemeanaanemenaas SEG cco? 


RLO1 USERS ne hau (EK-RLO1-UG-PRE } 
DIAGNOSTIC. SUP SUPERVISOR PROGRAM LISTING 


_ 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


oe el SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 


MD-11-CVRLA RLV11 RLOL DISKLESS TEST (RLV11 ONLY) 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE RLO1 SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC. 
DO NOT FUNCTION PROPERLY. 


—.0 OPERATING INSTRUCTIONS 


FOLLOW STANDARD DEC PROCEDURES TO LOAD THE PROGRAM. (XXDP, 
ABSOLUTE LOADER, UPD1, UPDe) 


2.1.2 STARTING PROCEDURES 


THE PROGRAM STARTS “+ LOCATION 200. USE STANDARD DEC PROCEDURES 
TO START THE PROGRAM 


2.1.3 STEPS FOR GUICK AND SIMPLE EXECUTION 


THE CIAGNOSTIC CAN BE EXECUTED STANDALONE WITHOUT READING THE REMAINDER OF THIS 
COCUMENT AS FOLLOWS: 


om AND SOFTWARE QUESTIONS 
} GET END OF PASS MESSAGES OR ERROR MESSAGES 
TO END EXECUTION, ENTER CONTROL/C 
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SPECIAL ENVIRONMENTS 


T CNV TR ENTS a PROGRAM WILL RUN IN ARE XXDOP, XXDP CHAIN, 
ACT, SLIDE AND AP 


| 2.3 PROGRAM OPTIONS 


| 2.3.1 START COMMAND 


STA(RT) “TESTS: < TEST-LIST> “PASS: <PASS-CNT> “FLAGS: <FLAG-LIST> “EOP: < INCR> 
SELALAEEAAAA SER EEALAERE LEELA REEL ERLE REAR ERE E LEER EEE EEE EERE EERE 
2.3.1.1 TESTS SWITCH (/TESTS:<TEST-LIST>) 


| FPERPERRAPRAFEARFSAREREFELFKSSREHRAALHRARESFLRE RELA RPLE RRA ELKELFKKAKEREEK 
<TEST-LIST> IS A SEQUENCE OF aa 
DECIMAL RS ( C.) 


OR RANGES 


ic REGARD 
CIF ICATION. THE Ser BuLt IS TO EXECUTE ALL TESTS. 
ITCHES, THE ANGLE BRACKETS <> ARE PUNCTUAT 


2.3.1.2 PASS SWITCH (/PASS:<PASS-CNT> ) 


<PASS-CNT> IS A DECIMAL NUMBER INDICATING T 
A PASS IS DEFINED AS THE EXECUTION OF THE . 
N 


ENC 
HT END OF 2.3.1. 
-1.3 FLAGS SWITCH (/FLAGS:<FLAG-LIST>) 


<FLAG-LIST> IS A SEQUENCE OF ELEMENTS OF THE FORM <FLAG> 
OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS ONE OF 
THE FOLLOWING VALUES: 


HOE HALT ON ERROR, CAUSING COMMAND MODE 10 BE ENTERED WHEN AN 
ERROR IS ENCOUNTERED 

LOE LOOP ON ERROR CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 
Ge THIN THE S EST DEFINED BLOCK OF CODING (SEGMENT, 
SUBTEST, OR Test) ¢ ) CONTAINING THE ERROR 


fu 
tu 


<FLAG=1>, 


IER INHIBIT E ose TING 
IBE twitetT aC ERRER RROR REPOR oo 
IXE INHI Vy x 
PRI DIRECT ALL MES $_T AT LINE SPRINTER 
PNT PRINT NUMBER OF TEST Be ING EXECUTED 
BOE BELL ON ERROR 
UAM RUN IN UNATTENDED RYSASSING MANUAL INTERVENTION TESTS 
ISR INHIBIT STATISTICAL 
TOR INHIBIT DROPPING OF UNITS "By DIAGNOSTIC 
THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 0 
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ION USED TN THE 
SND ARE N NOT TO BE TYPED BY THE OPERATOR. SEE EXAMPLE 


DE'.IREO NUMBER OF PASSES. 
L amass Tc (ALL On TE TESTS) 


T ALL UNITS SUBMITTED. THE DEFAULT IS NON-ENDING EXECU 7 On 
EXIT IS ACCOMPLISHED EITHER BY TYPING A CONTROL/C OR BY A HALT 
OUNTERED, IN WHICH CASE WE RETURN TO COMMAND MODE. See NEXARPLE 


a a ee ee, 


SEG coc4 


Se 


ARE CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS we hay 2 
IS NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF 2.3.1 SEG cccs 


2.3.1.4 END OF PASS SWITCH (/EOP:<INCR>) 
<INCR> IS @ DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF PASSES) 
IT TS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE DEFAULT IS 
AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF 2.3. 
| 2.3.1.5 EFFECT OF COMMAND 
THE EFFECT OF THE START COMMEND 15, TO INITIATE THE HARDWARE PARAMETER 
DIALOGUE, THE SOFTHARE PARAMETER OIAL AND THEN THE DIAGNOSTIC 
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OFTWARE QUESTIONS TO 


FOLLOWING T TIONS ARE THE 
HE HARDWARE QUESTIONS ARE MODE (QUCK VERIFY ETC.) 
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5 ANSWERE 

AND I ae IS NOT ENO 

Ss" 518 ISSUED. IN THI 
oO TeST ALL UNITS. 


Cons. STORAGE 
TO_ACCOMMODA 

THE DIAGNOSTIC MUS” 
EXAMPLE: 

0 pment 5 empeinae 3/FLAGS: IER: 


Se SOG Tht RUEE REE PESBES 8 

DIFFERENCE t Befucen’ Sac "ING <FLAG> AND SAYING 
NOTATION <F AG=0> 15 MEAN INGFUL ONLY ON A 
START TO CLEAR A FLAG THAT WAS PREVIOUSLY 
ON ALL COMMANDS ONLY THE FIRST THREE LETT 


UGH 
S CASE 


2.3.2 RESTART COMMAND 


FEELELELELEERE RELL S REE SELES EASE ERSEELAERELELAEE ASE REARS EERE ALAS ERAL LALA ERE RELRE 
PES( TART) /TESTS: < TEST-LIST> “PASS: < PASS-CNT> “FLAGS: ‘FLAG-LIST> “UNITS: <UNIT-LIST> 
EFFEELESEEEELELEREFEESEELELE ELE SEES ELLE EE EEE LESSER AEREEERESLALELALELESEALES 


&.3.2.1 TESTS, PASS, AND FLAGS SWITCHES 
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<TEST-LIST>, <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THE START COMMAND. 
3.2.2 UNITS SWITCH (/UNITS: <UNIT-LIST>) 
<UNIT-LIST> IS A SEQUENCE OF DECIMAL NUMBERS (1,2 ETC.) OR RANGES 


fu 


OF DECIMAL NUMBERS (1-5, 8-10 ETC.) SEPARATED BY COLONS, INDICATING 

OnE ee Pate Fi, CEPR eh Fal 
| Se NUMBER INDICATES, THE POST uti ue PoTABLE fs HE DATA une ENTERED 
| DURING THE HARDWARE OTAGLOGUE. THE UNITS WH 
| SELECTED MUST NOT HAVE BEEN DROPPED BY THE OP CORMAN. SEE THE 

Fe eS ee Fee Te eunh od MAVE NOT BEEN Oi PEE AULT BY A DROP COMMAND. 
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-3.2.3 EFFECT OF COMMAND 


La RESTART COMMAND DIFFERS FROM THE 
OM THE on aoe START To ( THE 


T 
OPERATOR 
3.3 CONTINUE COMMAND 


fu 


KARSLAELLLEAAFASE SARA LAAESAAE ELLE SEALER EER 
CON( TINUE) “PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 
FPHEFLELSELALLLASLLLELRALLLLELELERERELE LEE 


&.3.3.1 PASS SWITCH (/PASS: <PASS-CNT> ) 


<PASS-CNT> IS SAME AS IN START COMMAND BUT T 
SATISFIED PASS-CNT FROM THE PREVIOUS START OR 
MAINS, THE DEFAULT IS NON-ENDING EXECUTION. 


FLAG SWITCH (/FLAGS:<FLAG-LIST> >) 


<FLAG-LIST> IS SAME AS IN START COMMAND, BUT UNSPECIFIED FLAGS RE- 
TRIN THEIR CURRENT VALUE. 
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2.3.3.3 EFFECT OF COMMAND 
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Si Mh mt FOLLOW A START OR RESTART, AND COMMAND MODE we) Fate 
been E NTERE ON ERROR OR ROL/C. THE EFF 


NT 
CONMANE HE BEGINNI THE TEST THAT WAS BEING 
PvE CUTED WHEN THE HALT OR CONTROL“C TOOK PLACE. E 
OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED. 


2.3.4 PROCEED COMMAND 


Saensssenesess Seenseessene 
PROCEED} /FLAGS: «FLAG-LIST> 
FELLEEFELELESELELERRELESEEED 


co 
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HO1 


fu 
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-1 FLAGS SWITCH (/FLAGS:<FLAG-LIST>) 


<FLAG-LIST> 4s AS IN THE START COMMAND, BUT UNSPECIFIED FLAGS RETAIN 
THEIR CURRENT VALUE. 


.3.4.2 EFFECT OF COMMAND 
PROCEED MUST FOLLOW A START, RESTART, OR CONTINUE. MMAND MODE 
; N ERRO TH 


co 
HA A HALT O R. EFFECT OF THE 
COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 


fu 


GT 
ERROR CALL. NE ‘THER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 


SREAAFSRELAESSAALASAESRELELERELE LAE RALE RESELLER REESE EEE 
Col’ TESTS: < TEST-LIST> “PASS: <PASS-CNT> “FLAGS: <FLAG-LIST> 
SHLASHESLAAAAAAE LEAL KEELER RESELL ESE LALASESERER EEE 


2.3.5.1 TESTS, PASS, AND FLAGS SWITCHES 
<TEST-LIST>. <PASS-CNT>. <FLAG-LIST>. AND ARE AS 

IN THE START COMMAND, EXCEPT THAT THE UAM (UNATTENDED MODE) FLAG 
DEFAULTS TO THE SET POSITION. 

EFFECT OF COMMAND 


THE PURPOSE OF THIS COMMAND IS TO CREATE A BIC FILE SUITABLE FOR 
CHAIN MODE EXECUTION. THE XXDP PROCEDURE IS AS FOLLOWS: 


INVOKE THE XXDP UTILITY UPD1 
LE.BIN 


fu 
Ww 
in 
no 


«QUESTIONS AND ANSWERS> 
RESTART UPD1 USING RESTART ADDRESS 
F “PASSED 14.SK” MESSAGE CAME) 


R 
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ay gues 
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IS SUBSEQUENTLY EXECUTED IN CHAIN MODE 
. HOWEVER, IF IT tS EXECUTED 


NOTE THAT IF THE eS SAGE S ISSUED, TWO OR MORE 


CORE IMAGES MUST BE 
&.3.6 OO COMMAND 
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ys 
ENT NAMES) TO TEST ALL UNITS. 


I01 


SRTTALSRRARRERERRRRTE 
AOD“ UNITS: <UNIT-LIST> 


| SSSRRSARARARARERFRRAARERE 


3.6.1 UNITS SWITCH (UNITS: <UNIT-LIST> 
<UNIT-LIST> IS AS IN THE RESTART COMMAND. 
2.3.6.2 EFFECT OF COMMAND 


fu 


T CIFIED ARE ADDED TO T SEQUENCE. EACH UNIT 
RTL ted nieh be tte ee eT em’ Paral 
oat She MUST BE SPECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR UNITS 


THAT WERE PREVIOUSLY DROPPED. 
&.3.7 DROP COMMAND 


SHLASERAERELESSSRETELRES 

ORO. FP) “UNITS: <UNIT-LIST> 

SHSSASESAELEESESSELERE RE 

2.3.7.1 UNITS SWITCH (/UNITS:<UNIT-LIST>) 
<UNIT-LIST> IS AS IN THE RESTART COMMAND. 


&.3.7.2 EFFECT OF COMMAND 


THE UNIT FIED WILL BE DROPPED A Bl TESTING. | UNITS WILL 
RESELECTED ONLY : Y BY THE EXECUTION OF AN ADD OR 1 T COMMAND . 
THE UNITS a Se MUST BE ENTERED. (THIS COMMAND MUST BE 
FOLLOWED BY A RESTART OR & CONTINUE COMMAND. 


2.3.& PRINT COMMAND 


SFRESES 
PRI INT) 
SeESSED 


2.3.8.1 EFFECT OF COMMAND 


ALL STATISTICS pou es 8 ACCUMULATED BY_ THE DIAGNOSTIC ARE PRINTEC. THE 
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. 


2.3.9 CISPLAY COMMAND 


SHSSESEESSELSESAELEESERSSES 

CIS (PLAYI/UNITS: <UNIT-LIST> 

FEFSFSFFSESLSASLESESESESSEARESSIRS 

2.3.9.1 UNITS SWITCH (/UNITS:<UNIT-LIST> 3 
‘UNIT-LIST. IS AS IN THE RESTART COMMAND. 


EFFECT OF COMMA@NC 
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eORMAT aT tN usitcn THEY. SOE a NETS UNCER IGS Tost WERE SROPPED BY THE 
DRERRTOR =DRoe CORMANE SRE So DESIGNATED 


2.3.10 FLAGS COMMAND 


eeeeese 


2. 


3.15.1 EFFECT OF COMMAND r 


THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 


2.3.11 2FLA@GS COMMAND 


SHLLAVSSE 


ZFL (AGS) 


SSFRELOLE 


i1.1 EFFECT GF COMMAND 
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ALL FLAGS ARE CLEARED. 


CONTROL CHARACTERS 


J I 
VALUES 16° BE TREN’ FOR Pe RENE 


nA f 
FeUSES ALL CONGOLE GUTPUT Yo BE SUPPRESSED POR THE REMRINOE® 


F 
OF THE DIAGNOSTIC UNTIL ANOTHER CONTROL 0 


- 2.13: HAPOWARE PARAMETERS 


TEE ESAS ERLE Hae RES PERED OA pSnOPT Oates 
VALUE THAT WILL BE AEN ON & CARRIAGE RETURN 


PLIi (L) Y? 


ANSWEP YES(‘Y) IF YOU HAVE AN RLI1 CONTROLLER, NO(N) IF YOU 
HAVE AN RLV11 CONTROLLER. 


BUS ADDRESS °C) 1744007 
ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 
VECTOR (9) 330? 





KOl 


ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. SES cols 
BR LEVEL (0) §” 
ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLE® 








DRIVE <0) 0? | 
ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 
2.3.14 SOFTWARE PARAMETERS 
| THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART OR CONTINUE 
IF THE QUESTION: 
| : CHANGE Sid? 
| IS ANSWERED YES(Y). THE QUESTIONS ARE: 
| DROP ON ERROR LIMIT (L) Y¥? 
TD ALLOW THE UNIT TC BE DROPPED ONCE A PREDETERMINED NUMBER OF 
ERRORS ARE ENCOUNTERED. 
ANSWER Y OR N 
ERROR LIMIT (BD) 10? 
NUMBER OF ERRORS ALLOWED BEFORE DROPPING UNIT. 
ANSWER 1 TO &SK 
AUTOSIZE (L) N? 
| TO CHECK TO SEE IF UNIT SPECIFIED ACTUALLY EXISTS BEFORE TESTING 
IT (VI@ ORIVE READY), IF NOT UNIT WILL NOT TESTED. 
ANSWER Y OR N 
2.2.15 EXTENDED DISCUSSION OF P-TABLE DIALOGUE 
THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE FOLLOWING 
DIECUSSTON OF WHAT HAPPENS INTERNALLY. 
RS £00" act SUeEaet a UOUT CD Pea NSPETER Ce Mae MEE rem cs 
ARE OF THE Cee FORMAT. ND THERE IS a IS & ONE-TO CORRESPONDENCE BE TWEEN 
THE HARDWARE PARAMETER’ QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT. 
ON THE FIRST TRIP THRU QUESTIONS OF THE OTs IN ALL OF T 
SEE a ok Manila aieetiog eke te bee Ae 
NE V@LUE GOING INTC T PROPER o05t + oF PRcH Be BEGINN 
-TABLE) UNTIL THE STRING OF VALUES 1s EXHAUST Dp. Tf 
STRING BECOMES THE NEW DEFAULT AND IS USED THEN AND 
OT IN THE REMAINING P-TABLES. 





LOl 
ENcEPY THAT THE EARLIEST, B- RETIM|s US SRECETVED AN EXPLICIT VALUE’ 


Frere ASSUMES THE ROLE MO MAT ABLE NUMBER “ON “BLaveD 
IN the FIRST TRIP. 


a ae OF GUEST IONS 12 PE ERAY SR. UNTIL AT LEAST ONE QUESTION HAS RECEIVED 


N GIVING A STRING VALUES WITHOUT INTERVENING VALUES MAY BE USED 
O INDICATE A REPETITION OF te LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA, ™P SAMPL. LE RANGE TR CATES 10 THE 
Bante’ TRANSLATES TO THE STRING 6,8,10 FAN TNERENENT OF 2). 


NOW LET Cc CAPABILI sT TR SET OF 
BES’? ASSUME THA THE HAVE 64 GRITS. Ss THERE ARE Thee ABROMARE 
IN seats ne Erase ie ee Trt runs? PARAMETER Oe 
THE , BaLES. SIRED VALUE oR THE SECOND 
he NURBER EXCEPT FOR UN 
50 tata SHOULD REC eee THE Tlate a SPA ne Oba VALUE FOR THE THIRD 


ARAMETER BE THE NUMBER 76 FOR THE FIRST 20 UNITS AND THE NUMBER 77 FOR THE 
LAST 44 UNITS. 


THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
® UNITS (D) 7? 64 


UNIT 1 

(QUESTION 1> ? 75 

«QUESTION 2> ? 1-20 

<QUESTION 3> ? 76 

UNIT 21 

‘BERTION BS 3 osu, 1-04 

‘QUESTION 3> 2? 77 =—°” 

THE FIRST TIME T ERIES IS ASKED, SLOT ONE RECEIVES A 75 _IN ALL 

64 TABLES. SLOT TWO RECEIVES THE VALUES 1,c,3,...,20 IN TABLES 1 T 

AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A CONSTANT 76 
IN ALL 64 TABLES. 

THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE GOING 70 

BE AFFECTED (NOTE THAT THIS PIECE OF SRF ORMATION 1S SR ONTED OUT FOR THE 
QUESTION 1 TS-RESPONDED TOUDY A CCR. SO SP OTONE STAYS OD TRIES). 

Bee OAS TANT 35 IN TABLES 21 THRU ER CENCE NO NEW Exc iert VALUES ARE TYPED 
ite BS2 IN°SCor core ano teTa tee Uacoee ef el sitet seat taates 

Si THRU 64. SLOT THREE GETS FHE VALUE 77 IN’ TABLES 21° THRU 6 

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 

EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION 

(NAMELY QUESTION 2). 
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: ONE PASS OF THE PROGRAM TAKES APPROXIMATELY 45 SECONDS. | 
| 3.0 ERROR INFORMATION 


ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DECIVE. ERROR 
REPORTS ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT 
DZRL? Xxx ERR yYYYY TST 222 SUB PPP PC: RRRRRR 
¥ WHERE: 
PROGRAM LETTER 
SFT - SOFT ERROR 

- HARD ERROR 
FAT - DEVICE FATAL ERROR 


S 

S 

Vv 

S FAT - SYSTEM FATAL ERROR 
2 THE ERROR NUMBER 

S 
S 


ne 


THE TEST A deep ~ 
THE SUSTEST NUMBER 
THE PROGRAM LISTING LOCATION 


A 
Zz 


TER CONTENTS BEFORE AND AFTER THE ERROR 


ERRORS GIVE THE REGIS 
LINE DESCRIPTION AND RELEVENT DATA. 


. ALONG WITH A ONE 


Lan Bd 


I 
LI 
LINE) 

BEFORE COMMAND: CS:XXXXXxX BA: XXXXXX DA: XXXXXX MP: XXXXXX 

TIME OF ERROR: CS:XXXXXX BA: XXXXXX DA: XXXXXX MP: XXXXXX XXXXXX XXXXXX 


PEGISTER DESCRIPTIONS CAN BE FOUND IN SECTION S.O. 
ERROR HALTS 


tw 
fu 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /“FLAG:HOE. THERE ARE NO OTHER HALTS. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS. 


4.2 PROGRESS REPORTS 





THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. 


5.0 DEVICE INFORMATION TABLES 


THE RLII/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4) 


REGISTERS FOR CONTROL OF THE SUBSYSTEM. 
RLCS - CONTROL AND STATUS REGISTER (XXXXX0) 


BIT 15 - COMPOSITE ERROR 
BIT 14 - DRIVE ERROR 
BIT 13 - NON EXISTANT MEMORY ERROR 
BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET) 

- DATA LATE (WITH BIT 10 CLEAR) 
BIT 11. - HEADER CRC (WITH BIT 10 SET) 

- DATA CRC (WITH BIT 10 CLEAR) 
BIT 19 = OPERATION INCOMPLETE 
BIT 9/78 - DRI LECT (6-3) 
BIT 7 - CONTROLLER READY 
BIT 6 - INTERRUPT ENABLE 
BIT & - EXTENDED ADDRESS (BIT 17) 
BIT 4 = EXTENDED BUS ADDRESS (BIT 16) 
BIT 3-1 - FUNCTION CODE . 

0 - NOP (POP-11) MAINT (LSI-11) 

1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

S - WRITE DATA 

& - READ DATA 

7 = READ WITHOUT HEADER COMPARE 


BIT O - DRIVE READY 


RLBA - BUS ADDRESS REGISTER (XXXxXxX2) 


BITS 15-1 BUS ADDRESS OF DATA TRANSFER 


BIT O SHOULD BE 0 
RLDA - DISK ADDRESS REGISTER (XXXXX4) 


BIT 1S - MUST BE ZERO(O) 

BIT 14-7 _- CYLINDER ADDRESS FOR TRANSFER 
BIT & - SURFACE FOR TRANS 

BIT S-O - SECTOR FOR TRANSFER (0-47) 


FOR SEEK FUNCTION 


ented Se ee eee 


BIT 15 - MUST BE ZEROC(O) 





SEQ S013 


B02 


— CYLINDER 


ONC 1 - IN ~ O - GUT ) 


mM 
MUST BE ONE(1) 
GET STATUS FUNCTION 


15-4 - IGNORED SHOULD BE ZERO 
3 - DRIVE RESET 

‘ - MUST 
i 


Donmwownm 
Cd 44-4 0 
DB AAHHHHHH4HH 


n 


BE ZERO 
MUST BE ONE 
MUST BE ONE 


BIT 15 - O - WORD COUNT(TWO’S COMPLIMENT) 
FOR READ HEADER FUNCTION 


BIT 18-0 - OIsk HEADER OF SECTOR (FIRST READ) 
- ZERO WORD (SECOND READ) 
- HEADER CRC (THIRD READ) 


FOR GET STATUS FUNCTION 


=x 
D> 


44 td ead 


DRIVE STATUS 


CURRENT HEAD ERROR CHE 


WRITE LOCK gle The 
TIME OUT(SKTO) 


be be ba ee 


DUWOVMOWOWOMOMOMMWMOM 
0-44-4104 0-4 4-4 4 0 
LWLWMONOWO~wtuUl 
 rrrrrrrererere 
i] U < 
Be 2 v 
é ZF 
Sri x 
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2-0 -3 


oy SYSLe 


OS 
SEEK - TRACK COUNTING 
SEEK - LINEAR MODE 
OAD HE 


UNLOAD 
SPIN DOWN 


NOW LWMUe-O 


ee eee « - = 
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SEG 0014 


C0e 


SES CCiS 
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TEST 


TEST 


TEST 


TEST 


TEST 





D002 


6.0 TEST SUMMARIES 


TEST 1 = RLCS ADDRESSABILITY 


2 


THIS 


CAN BE 
PROCE 


HANDL 


- RLBA 
THIS 
ACCES 
WILL 

- RLDA 


THIS 
ACCES 


NTROL AND STATUS REGISTER 
R CANNOT BE a THE 
4, WHICH IS SET UP TO 


TEST WILL CHECK THAT 
SSOR ais TRAP TO LOC 
E THE TRAP. 
ADDRESSABI!.ITY 

TEST Wait CHECK THAT THE BUS ADDRESS REGISTER CAN BE 


SED. IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR 
TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE THE TRAP. 


ADDRESSABILITY 


TEST WoL CHECK THAT THE DISK ADDRESS REGISTER CAN BE 
SU. iF te 7 ee CANNOT BE_ACCESSED THE PROCESSOR 


WILL TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE THE TRAP. 
- RLMP ADDRESSABILITY 
THIS TEST WILL_CHECK THAT THE MULTIPURPOSE REGISTER CAN BE 
ACCESSED. IF THE a er CANNOT BE_ACCESSED THE PROCESSOR 
WILL TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE THE TRAP. 
- READ WRITE OF RLCS 
THIS TEST WILL ATTEMPT TO WRITE RLCS BITS 9-1 AND READ THEM 
BACK. WALKING AND GROWING 0°S AND 1’S ARE.USED. BIT 7 (CON- 
TROLLER READY) IS ALWAYS WRITTEN AS A 1 SO NOT To INITIATE 
f FUNCTION. BITS 15, 14 AND O ARE TREATED AS DON’T CARE FOR 
THIS TEST. 
~- READ WRITE OF RLBA 
THIS TEST WILL ATTEMPT TO WRITE RLBA BITS 15-0 AND REAR THEM 
pak KING AND GROWING O’S AND 1°S ARE USED. BIT O ON 
f_RLil SHOULD ALWAYS COME BACK AS AO, WHILE ON AN RLV11 
IT IS LOADABLE. 
- READ WRITE OF RLOA 
THIS TEST WILL ATTEMPT TO WRITE RLOA BITS 15-0 AND READ THEM 
BACK. WALKING AND GROWING O'S AND 1°S ARE USED. 
- BIS OF RLCS 
THIS TEST WILL USE THE 11 INSTRUCTION “BIS” TO SHOW THAT A 
PEAE-MOBIFY-WRITE SEGUENCE OF THE RLCS WORKS. BITS 9-1 ARE 


er 


SEG 


cols 








TEST 


TEST 


TEST 
TES? 


TEST 


E02 


USED, BIT SETTING IN WALKING AND GROWING 0’S AND 1°S. BIT 
boa® a READY) IS ALWAYS SET. BITS 15, 14 AND 1 ARE 


9 - BIC OF RLCS 


THIS TEST WILL USE THE 11 INSTRUCTION “BIC" TO SHOW THAT A . 
READ-MODIFY-WRITE SEQUENCE OF THE RLCS WORKS. BITS 9-1 ARE 
USED, BIT CLEARING IN WALKING AND GROWING O°S AND 1°S. BIT 
? (CONTROLLER READY) IS ALWAYS SET. BITS 15, 14 AND 1 ARE 


DON’T CARES. 


19 - BIS OF RLBA 


THIS TEST WILL USE THE 11 INSTRUCTION “BIS” TO SHOW T 
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS. BITS 1 
BIT SET USING GROWING AND WALKING O°S AND 1°S. BIT O 
SET ON A RL11, BUT CAN ON A RLV11. 


11 - BIC OF RLBA 
THIS TEST WILL USE THE 11 INSTRUCTION “BIC” TO SHOW THAT A 
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS. BITS 15-0 ARE 
BIT CLEARED USING GROWING AND WALKING O0’S AND 1’°S. 

le - BIS OF RLDA 
THIS TEST WILL USE THE 11 INSTRUCTION “BIS” TO SHOW THAT A 


READ-MODIFY-WRITE SEQUENCE OF THE ore an WORKS. BITS 15-0 ARE 
BIT SET USING GROWING AND WALKING O’S AND 1°S. 


13 - BIC OF RLDA 


THIS TEST WILL USE THE 11 a be BP ys “BIC” TO SHOW THAT 
READ-MODIFY-WRITE SEQUENCE OF THE RLOA WORKS. BITS 15-0 ARE 
BIT CLEARED USING GROWING AND WALKING 0’S AND 1°S. 


14 - BUS RESET OF RLCS 


THIS TEST WILL VERIFY THAT THE BUS RESET OF THE PROCESSOR WILL 
CLEAR ALL BITS OF THE RLCS WITH THE EXCEPTION OF BIT N- 
TROLLER READY), BIT O (DRIVE READY) AND BIT 1S CCHMPOSITE ERROR) 
IF BIT 14 (DRIVE ERROR) IS SET 


wn 


- BUS RESET OF RLBA 


THIS TEST WILL VERIFY pg i THE BUS RESET OF THE PROCESSOR WILL 
CLEAR ALL BITS OF THE RLBA. 


be 


1&6 - BUS RESET OF RLDA 
THIS TEST WILL VERIFY THAT THE BUS RESET OF THE PROCESSOR WILL 





FO2 


CLEAR ALL BITS OF THE RLDA. | | 
| 


| TEST 17 - UNIQUENESS OF RLCS 


THIS vest WILL VERIFY THAT WHEN THE RLCS Oe) IS_ADDRESSED 
ONLY THAT REGISTER IS EFFECTED. BOTH THE RLBA AND THE RLDA 
ARE SET UP WITH KNOWN DATA, THE RLDA IS WRITTEN, THEN THE RLBA 
AND RLDA ARE VERIFIED THAT’ THEY DID NOT CHANGE. 


TEST 18 - UNIQUENESS OF RLBA 


THIS TEST WILL VERIFY THAT WHEN THE RLBA CXXXXxB IS ADDRESSED 
ONLY THAT REGISTER IS EFFECTED. BOTH THE RLCS AND RLDA ARE 
WRITTEN WITH KNOWN DATA, THE RLBA IS WRITTEN THEN THE RLCS 
AND RLDA ARE VERIFIED That THEY DID NOT CHANGE. 


TEST 19 - UNIQUENESS OF RLDA 


THIS TEST WILL VERIFY THAT WHEN THE RLDA (XXxxx4) IS ADDRESSED 
ONLY THAT REGISTER IS EFFECTED. BOTH THE RLCS AND RLBA ARE 
WRITTEN WIEHT KNOWN DATA, THE RLDA IS WRITTEN, THEN THE RLCS 
AND RLBA ARE VERIFIED THAT THEY DID NOT CHANGE. 


TEST 20 - UNIQUENESS OF RLMP 


THIS TEST WILL VERIFY THAT WHEN T 
ONLY THAT REGISTER IS EFFECTED. 

WRITTEN WITH KNOW DATA, THE RLMP 
RLBA AND RLDA ARE OERIFIED THAT T 


HE RLMP (XXxXxXx6) IS ADDRESSED 
THE PL CF one? AND_RLOA ARE 

S Ww THEN THE RLCS, 

Y 9.0 NOT’ CHANGE . 


TEST 21 - NOOP FUNCTION 
noe TEST WILL VERIFY THE OPERATION OF _ THE NOOP (0) 4 he 
ON PDP-11°S ONLY NCE ON AN _LSI-11 IT IS @ MAINTENANCE 
FUNCTION. THE ABILITY OF CONTROLLER READY TO RESET AND NO 
ERRORS ARE CHECK 
TEST 22 - TEST NOOP DOES NOTHING 
THIS TEST WILL CHECK THAT THE NOOP FUNCTION WILL NOT DISTRUB 
ANY REGISTERS OF THE CONTROLLER. 
TEST 23 - TEST OF INTERRUPT 
THIS TEST WILL CAUSE AN INTERRUPT FROM ay CONTROLLER USING 
NCOP (RL11 ONLY) TO CHECK THE INTERRUPT LOGIC AND VECTOR. 
TEST 24 - TEST PRIORITY BR LEVEL 
THIS TEST WILL CHECK THAT THE PROPER PRIORITY IS ON THE BOARD. 


WE YERIFY THAT ABOVE we LEVEL THE BOARD WILL NCT INTERRUPT 
AND BELOW IT, IT WILL 





| TEST 2s 


TEST 26 


TEST 2? 


| TEST 26 


TEST 30 


TEST 32 


} 
| 
| 
| 
| 
| 
| 
TEST 31 


GOe 


- GET STATUS FUNCTION 

TH TW VERIFY. Mg one yey ® Function (2) WILL 

con PLETE CORRECTE Y. Are ce? G T STATUS IS 
EONTROLLER READY i" CHECK » cs WELL “hg ERROR BITS. 

teTRST TEST A DRIVE MUST BE PRESEN 

- GET STATUS FUNCTION INTERRUPT 

THIS TEST WILL VERIFY THAT THE GET STATUS FUNCTION WILL GEN- 

ERATE AN INTERRUPT ON COMPLETION. 

- GET STATUS FUNCTION GENERATES OPI 

THIS M5 WILL PROVE THE ABILITY FOR OPI_ (OPERATION INCOM) TO 

SET AND THAT THE ORIVE ay i3 BEING TRANSMITTED CORRECTLY. 

THE COMMAND WORD (RLDA) IS SET WITH THE MARKER BIT ONLY. AN 

OPI IS EXPECTED TO RESULT, THIS” Ts CHECKED. 

- OPI UNDER INTERRUPT 

Mae 3 TEST WILL gece ne ABILITY OF AN OP 

ONLY THE WI 


MARKER BIT 


Te " CAUSE AN Bs) ill 
eSnManc AND EXPECT AN” OPI ERROR. 


I 

TH THE GET STA 
- READ HEADER FUNCTION INTERRUPT 

THIS TEST WILL CHECK THE ABILITY OF THE READ HEADER FUNCTION 
TO INTERRUPT ON COMPLETION. 

- REPEATED RD HORS YIELD SAME CYL AND HD 

THIS TEST WILL CHECK THAT ON REPEATED READ HEADERS THE CYLINDER 
AND HEAD BITS OF THE HEADER WORD (RLMP) ARE ALWAYS THE SAME. 

- CHECK OF HEADER CRC 

THIS TEST WILL VERIFY THE HEADER CRC THAT FOLLOWS THE TWO 

HEADER WORDS IS ACTUALLY THE CORRECT CRC-1& CALCULATION OF 
THE TWO HEADER WORDS. 

- CHECK CONSECUTIVE HEADERS 

THIS TEST WILL CHECK THAT HEADERS ARE CONSECUTIVE. 


- SEEK FUNCTION 


THIS TEST WILL CHECK THE SEEK FUNCTION (3) TO RESET CONTROLLER 
FERDY AND POST NO ERRORS. COMMAND WORD IS LOADED WITH & ONE 
CYLINDER FORWARD SEEK. 


| TEST 3S 


| TEST 36 


| 

TEST 37 
TEST 36 
TEST 40 


TEST 41 


TEST 42 


HO2 


- CHECK DRIVE READY ON SEEK 

THIS TEST a CHECK THAT DRIVE READY CLEARS AND RESETS ON 
ISSUEANCE OF A SEEK COMMAND. 

- SEEK FUNCTION INTERRUPT 

THIS TEST WILL CHECK THE ABILITY OF A SEEK COMMAND TO GENERATE 


AN INTERRUPT ON CONTROLLER READY RESETTING AND NOT ONE ON DRIVE 
READY RESETTING. 


- TEST DIFFERENCE WORD TRANSMISSION 


THIS TEST WILL TRY TO VERIFY THAT Bits 14-7, 6, 2, 0 OF THE 

COMMAND mee GET TRANSMITTED CORRECTLY. WE’ ISSUE SEEKS FROM 
TRACK _O WITH COMMAND WORDS “ WALKING AND GROWING O°S AND 1°S. 
ALL SEEKS ARE VERIFIED WITH A_READ HEADER AND RETURN TO TRACK 


0 BEFORE NEXT PATTERN IS ISSUED. 


- VERIFY HEAD SELECT O VIA RD HEADER 

THIS TEST WILL VERIFY THAT HEAD O CAN BE SELECTED AND READ ViA 
READ HEADER. 

- VERIFY HEAD SELECT 1 VIA RO HEADER 

THIS TEST TLL VERIFY THAT HEAD 1 CAN BE SELECTED AND READ VIA 
RERD HEADER 

- VERIFY HEAD SELECT 0 VIA GET STATUS 


HIS TEST WILL VERIFY THE WORD RETURNED TO THE RLMP BY A GET 
TATUS CONTAINS THE RIGHT HEAD SELECT. 


r 


- VERIFY HEAD SELECT 1 VIA GET STATUS 


THIS TEST WILL VERIFY THE WORD RETURNED TO THE RiMP BY A GET 
STATUS CONTAINS THE RIGHT HEAD SELECT. 


- TEST TIME AT WHICH DP WD GETS 


THIS TEST WILL CHECK THAT THE DIFFERENCE WORD (RLDA) ACTUALLY 
OES GET TRANSMITTED ty TO vag OLLER ig}! Be ae T TING. 
pis IS OGNE BY _ ISSUING A SEEK st” FOR CONTROLLER READY 

AND Be LOADING THE RLDA. THE SEEK IS THEN VERIFIED TO SEE IF 


IT 1S CORRECT 


- EXTENSIVE CHECK OF CRC 
THIS TEST WILL MORE EXTENSIVELY CHECK THE CRC LOGIC BY POSI- 





TEST 44 - 


7.0 PROGRAM LISTING 


102 


MS AT Efe RENT POIN ot THE PACK AND CHECKING THAT THE 
' v CT 


TS 
ROER CRC RECEIVED IS CORRE 
VERIFY GET STATUS WHILE ORDY IS LOW 


THIS TEST WILL a ta THE ABILITY TO PERFORM A GET STATUS WHILE 
THE DRIVE IS SEEKING. 


JO02 
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) 
| DZRLAA. ?7 10:4 SEG coe4 
| pees 
/ 8826 
| 827 
2828 002100 DEVREG 
(§) 902100 oo0000 “WORD O 
263 2102 000001 *BLKW 
2830 002104 'DEVTYP <RLOI> 
(3) O02104 O46122 030460 000 -ASCIZ a@RLOL| 
(2) 002112 * EVEN 
2831 002112 BGNMOD GLBEGAT 
e833 002112 EQUALS 
(2) : BIT DIFINITIONS 
4 
(13 100000 61T1S== 100000 
(13 040000 BIT14== 40000 
(1) 020000 BIT13== 20000 
(1) 010000 BITie=s 10000 
(13 4000 ITll== 4000 
(1) 02000 BITiO== 2000 
(1) 001000 BITO== 1000 
(1) 000400 ITO8== 400 
(1) 009200 BITO7== 200 
(1) 000100 BITO&== 100 
(1) 000040 BITOS== 40 
(1) 00020 BITO4== 20 
(1) 000010 BITO3== 10 
(1) 000 BITOe== 4 
(1) 000002 BITOl== 2 
(h) 000001 BITOO== 1 
(13 001000 BIT9== BITOS 
(1) 000400 BITs== BITOB 
(1) 000200 BIT7== B10? 
13 000100 BITé== BITOS 
(1) 00040 BITS== BITOS 
(13 000020 BIT¥== BITOY 
(1) 000010 BIT3== BITO3 
(1) 00004 BlT2== Bithe 
(i) ooo002 BITi== BITOI 
c(h) ooo0c1 BITO== BITOO 
t ; 
(1) + EVENT FLAG DEFINITIONS 
(1) :  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
(1) :  €F16:EFO1 AVAILABLE FOR PROGRAM USE 
d . 
(1) o00040 EF. START== 32. ; START COMMAND WAS ISSUED 
(1) 000037 EF. RESTART== t ; RESTART COMMAND WAS ISSUED 
(1) 000036 EF.CONTINUE== 30 : CONTINUE COMMAND WAS ISSUED 
(1) 000035 EF. NEW== 29 : A NEW PASS HAS BEEN STARTED 
(1) 900034 EF. PWR== 28 : A POWER-FAIL/POWER-UP OCCURRED 
4 , . 
CL) 000029 EFlé== 16 
oe 000017 EFiS== 15 








eee 


| 7 M02 
, OUTERR _MACYLIL Oc 1048) — 16:S1 PAGE 83-2 ; 
DeRLAR.Pil -O0CT-77 10:41 SEG Coes 
¢1) 0001 EFi4== 14. 
(i) ital BE i3=s > 
| i Beets scare 
| ab 800012 EF 10s: 10: 
BH ie 
( =s y 
(1) rialetet EFO7== 7 
{1) 000006 EFO6== 6 
(1) 000005 eruose 5 
(]) 000004 FO4¥== 4 
(1) 000003 EFO3== 3 
(1) o0000e EFOe== 2 
3 000001 EFOl== 1 
( ; 
(1) 
it ; PRIORITY LEVEL DEFINITIONS 
(1) 090340 PRIO7== 340 
(1) 000300 PRI boas 00 
(1) 0240 PRIOS== 240 
(1) 000200 PRIO4== 200 
(1) 000140 PRIO3== 140 
iid Gu0ido PRiGe== itd 
(1) 40 aot the 40 
(1) 005 PRIOO== 0 
2834 000001 D ySe1T9 sORLE READY (RLCS) 
2835 0106 INTEN=B8IT6 ; INTERRUPT ENABLE (RLCS) 
2836 100000 RR=BI 15 ;RLI1 ERROR sa Sa? 
2837 040000 ERR=BIT14 ;RLC IVE ERROR (RLCS) 
2838 000 OPI= 110 ; OPE ION INCOMPLETE (RLCS) 
2839 0200 CRD =3t 7 ;COP TROLLER READY (RLCS) “4 
2840 000040 BAI7=BITS sEXIE ne28 BIT 17 (RLCS) 
41 20 pAle=8iT4 3EXT aH IT 16 (RLCS) 
e642 020000 Sete He 13 pe XISTAN MORY (RLCS) 
2843 0 DSO= ; ORI. LECT O (RLCS) 
ces 009400 DS =stT8 i BRE 2et CT H (RLCS) 
eb4s 1000 OSe=BITS iDR LECT (RLCS) 
ests 00140) OS3=BITS!B1TS IVE BREST 3 (RLCS) 
2847 0000 NOOPO=0 ; FUNC { N- e933 
264s 000016 NO apitjterrerests ; FUNCT ION-NOOP (7) 
28493 000002 WRCHK=BITI1 : sMaET CHECK FUNCTION 
2859 00000 GoTATaGiT¢ 3G ake FUNCTION 
ess 0000: BEEKS i! ¢,81T1 ; K pune ION 
esse 00001 DHOR=BIT3 ; HEADER FUNCTION 
28S3 00001 WR feabitezerti sun ITE bore FUNCTION 
2es4 000014 READ=BIT3!BIT2 ;READ DATA FUNCTION 
eess 000202 GO Vis@1T1°6117 ;CRDY AND DRDY 
28 00001 DRST=BIT3 i s ORIVE SET (RLDA) 
e8s7 poe GSBIT=BIT1 ;GET STA BIT (RLDA) 
cbse 00001 =BITO ;MARKER 3 (RLDA) 
2ess 000004 BIGN=B1T2 ;SIGN Bt (RLDA) 
e860 000100 RHHS=BITE a 5 HERD LECT IN READ HEADER 
e661 000100 STHS=BIT6. ;HEAD SELECT IN STATUS BACK 
2862 000020 DAHS=BIT4 ;HEAD SELECT IN SEEK 
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2878 002112 
2879 
2880 O0e211e 
2881 
ebse 
2883 
e884 002112 
esss 002114 
e886 002116 
2887 002120 
2e8ss O00el22 
ebss 002124 
2890 002126 
2831 002130 
e832 tis 
28393 0021 
2894 002136 
esss Beets 
2896 00214 
28397 002144 
289s 002146 
263g 002150 
23900 O00e1Se 
e901 002154 
2e30e O002156 
23903 002160 
2904 002162 
e390S 002164 
2906 pbs 168 
2307 002170 
cape 002172 
2909 002174 
2910 00217 
23911 O022 
2e39le O022e0e 
2913 Od02204 
23914 O0e22) 
2915 00221 
2916 00221 
2917 O02214 
2918 OO0e2el6b 
2919 002220 
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CNT=10 
; OFFSET 
DLT=0 
ELT=2 
SIZE=4 
BGNMOD 
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FOR HARDWARE P-TABLE 


FOR SOFTWARE P-TABLE 


ENDMOD 
GLBDAT 
GLOBAL DATA 


;DRIVE UNDER TEST 


;PROCESSOR TYPE O=UNIBUS i=0-BUS 
; INTERRUPT_OCCURANCE FLAG 

OCATION TO FORM RLCS 
7 ;MASK OUT SECTO 
20001 


; LOCATION USED BY 


‘LOCATION 
; LOCATION 


USED BY 
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| DERLAA.P11 05-OCT-77 10:4i GLOBAL DATA SEG C027 
002222 000000 T™P 0 ; 
S353 §9555¢ Sono00 gopeT; CHORD OB 
2923 ooze ogag FIRST: :WORD 0 FIRST SECTOR READ 
2904 B32 «177? YLMSK: 177700 K CYLINDER AND HEAD SELECT 
2925 O0e2e34 0005 MXSECI1: :WORD 40. !MAX SECTOR ADDRESS + 
2926 002236 O00047 XSEC: :WORD 39. !MAX SECTOR AD 
2927 gg2e49 0000 DWORD: [WORD 0 ;DIFFERENCE WORD. ( 
2928 02242 077600 MAXCYL: [WORD 77600 !MAXIMUM CYLINDER ADDRESS 
2929 902244 0000 SVHD: WORD O !SAVE CURRENT HEAD SELECT 
2930 O02e4%6 o00000 ERRLMT: ‘WORD O 
2931 OO02250 S00000 WHY : "WORD O :REASON FOR DROP IN AUTOSIZE 
2932 OO0e252e S000 T.CNTLR: “WORD 0 
$333 O02eS4 900000 TMPFNC: .WORD 0 
e935 .SBTTL PATTERNS FOR REGISTER R/W 
2937 !PATTERNS USED FOR LOADING/READING REGISTERS 
2939 002256 oo0000 BEGPAT: 0 ;GROWING 1 
2940 O02260 O00001 1 
cei Bae, pos 
eo t 
Sgu3 bossee OpBSt? 1? 
2944 002270 000037 37 
2945 O02272 O000 39 
29468 002274 0600177 177 
2947 002276 000377 77 
2948 300 O00 777 
2949 302 001777 1777 
002304 003777 3777 
2951 O02 007777 3995 
2 002310 017777 17777 
2953 O0esle 037777 37777 
2 14 077777 59957 
2955 316 177777 177777 
177 177776 ;GROWING 0 
2957 OOes22 177774 177774 
177770 177770 
2959 177760 177760 
2960 O02330 177740 177740 
2961 OO2332 177700 177700 
2 002334 177600 177600 
3 002336 177400 177400 
2964 002340 1770 177000 
2965 OOe342 1760 176000 
2966 O02344 174000 174000 
2967 002346 170000 170000 
2968 002350 160000 160000 
2969 O02352 1400 140000 
2970 002354 100000 100000 
297 356 oo0000 oos000 
2973 , 002260 O00001 1 ;WALKING 1 
2974 362 oo0002 2 
2975 002264 oo0004 9 
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AA.PLL 
| 8378 908366 
| 7? 002370 
$328 37e 
e3 374 
2980 376 
2981 902400 
4 
cae esis 
ae Hieiis 
2988 O0e416 
2989 002420 
2990 O0e4e2 
e391 Ode4e4 
5345 05430 
2994 002432 
| 8995 902434 
2996 38 
2 2 
e9 be bed 
3001 posue6 
Sone poses 
3093 902454 
3004 02456 
3005 O02460 
3006 O0e462 
3007 o02464 
3008 
39093 
3010 
3011 o02466 
sole Q0e¥ 
3013 00247 
3014 002474 
3015 002476 
3016 002500 
3017 002502 
3018 002504 
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QUAMAX: .WORD 
HALMAX: .WORD 


SKEND: .WORD 
;PATTERNS FOR 
CSPAT: - WORD 


CSEND: 
HORBUF: .BLKW 
ENDMOD 


BGNMOD GLBTXT 
-SBTTL GLOBAL 


NORES: a 7953 “NO CONTROLLER/ 


NODRY: SC1IZ 
DEMES: .ASCIZ 
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RS,CKERLT 
PC,LINEL 
RS, CKERLT 


CSMSG 
CSMSG 


ENDMSG 
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ENDMSG 
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PAGE 84 
GLOBAL ERRORS 


BGNMSG ERRe 


L10002: 


BGNMSG 


10003: 


BGNMSG 


L10004: 


BGNMSG ERRS 


GO3 


PC LINE 

sFRMTY, GODAT, BDDAT 4 
BDDAT, ~(SP) 

GODAT’ -<SP) 

#FRMT4, -(SP) 

#3,-(SP) 

SP’ RO 

CSPNTB 

#10,SP 


RS, CKERLT ;CHECK ERROR LIMIT 


CSMSG 


PC,LINEL 

PC’ LINES 

#FRMTS, TMPO, BDDAT , GDDAT 
DAT, -(SP) 


GO 
BODAT, -( SP) 
TMP ) 


RS,CKERLT ;CHECK ERROR LIMIT 


CSMSG 


PC,LINEL 
PC‘ LINE2 
aF RTH, GODAT, BDDAT 


RS,CKERLT ;CHECK ERROR LIMIT 


CSMSG 
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DORLAA.PLL > 10:41 GLOBAL ERRORS 
3222 
32¢3 cor?770 004737 010102 JSR PC LINE 
3225 OO777Y OO4S37 012166 JSR RS,CKERLT :CHECK ERFOR LIMIT 
3eee 19000 ENDMSG 
¢3) 919000 L 1000S: . 
as3? o190000 104023 EMT CSMSG 
see 010002 BGNMSG ERR& 
3e30 010002 004737 010102 ISR PC,LINEL 
3e31 010006 9004737 919360 ISR PC;LINES 
3€3¢ O100i2 004737 O10136 JER PC; LINES 
3234 
3235 010016 1$: PRINTB &#FRMTS9 
(7) 910016 O12746 010613 MOV” aFRMT99,-(SP) 
(6) 010022 O12746 9000001 MOV #1,-(SP} 
‘3: 910026 010600 MOV P'R 
(4) 010030 104014 EMT CSPNTB 
(4) 919032 062706 002004 ADD #4, SP 
3236 010036 OO4S37 012166 JSR RS; CKERLT ;CHECK ERROR LIMIT 
3237 010042 ENDMSG 
(3) 610042 L10006: 
3538 010042 104023 EMT CSMSG 
3633 o10044 BGNMSG ERR7 
3243 010044 004737 910102 PC,L 
3242 0610050 PRINTB aFRTe BODAT 
'8) O10050 o13746 oc02226 MOV BODAT, ~(SP) 
(7?) 619054 Ole746 9010667 MOV #FRMT6, -(SP) 
‘€) 010060 Ole746 d0000e MOV #e,-(SP) 
‘3, 610064 10600 MOV SP‘ RO 
(4) O10066 104014 EMT CSPNTB 
mH 619070 O€2706 oo0006 ADD #6, SP 
3603 010074 004537 O12166 ISR RS,CKERLT 
3246 010100 ENOMSG 
(3) 019100 .10007: 
ai33 010100 104022 EMT CSMSG 
3242 0101 INE1: PRINTB #FRMT1,RLCS,<8,ORIVE+1> 
°§) Bi Bibs OOSO4E a -(SP) 
2) Biblio OrarMe OoBl36 More ORRCS CSP 
5) BB is Bizoae By 432 MOY BFRMTL =(SP) 
& 019120 012746 o00003 MOV #3.°(SP) 
3) 910124 010600 MOV * 
3) 610126 109014 EMT SPNTB 
aj42 919130 Se270e cocc10 ADD #10,SP 
3233 010134 00207 RTS PC 
3251 1013 LINE2: PRINTE asFRMT2, BBEREG, BARLCS,8.CS, #ARLBA,S.BA 
T2) O15136 c1274e cozl42 MOV B.BA,-<SF) 


_—-——— - - - Le 


a 
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FSRLAR.P LL pe cod P82 1Be48 GLOBAL ERRORS 
‘d1) 910142 O1e746 4236 MOV #ARLBA, -(SP) 
id) BIBISE BI SoHE Bosi46 MOV .CS.-tSP)_ 
(3) g101s2 Dier4e 004231 MOV BARLES, -(SP) 
8) 910156 Ole746 04260 MOV #BEREG: -(SP) 
7) O10162 O18746 010472 MOV aFRMT2.-(SP) 
<6) 910166 O1e746 ooos MOV #6, -(SP 
.3) 610172 010600 MOV Sp 
‘4) 910174 104014 EMT CSPNTB 
(4) 010176 062706 o00016 ADD #16 SP r 
3252 O1 02 PRINTB #FRMT2A, BARLDA,8.DA, #ARLMP, 8. MP 
(11) 0102802 013746 002146 v B.MP,-(SP) 
(10) 010206 Ole746 GoY4ese MOV BARLMP , -(SP) 
($) O10212 013746 002144 MOV B.DA,- 
(8) O10216 Oie74e O04e44 MOV #ARLDA, -( 
7) O102282 Ole746 010511 MOV #FRNTCA, -( SP) 
‘6) O:0226 O1e746 oOco00s MOV #S,-(SP) 
(3) 010232 010600 MOV SP'R 
(4) 010234 04018 EMT CSPN e 
.4) 010236 0627 000014 ADD #14,S 
3253 o15e4e PRINTB #FRMT2, BAFREG, BARLCS,E.CS. SARLBA,E.BA 
(12) O10242 013746 m4 E.8A,-(S 
(11) 010246 Ole746 04236 MOV #ARLBA, -(SP) 
(10) 010252 013746 oO02152 MOV E.cs,-ts 
3) 010256 G1e746 04231 MOV sARLCS, -( SP) 
(8) 0102862 012746 004301 MOV SAFREG, -(SP) 
(7) Q10266 012746 010472 MOV eFRMT2.-(SP) 
(6) 910272 O1e746— O60006 MOV #6,-(SP) 
(3) Gide 010690 MOV SP'R 
(4) O1 508 104014 EMT CSPNTB 
(4) 010302 062706 op0016 ADD #16,SP 7 
3254 910306 PRINTB #FRMT2B, #ARLDA,E.0A, SARLMP,E.MP,E.MP1.E. MP2 
£13) 010306 013746 002164 MOV E.MP2,-{SP) 
(12) 010312 013746 1 MOV E.MP1,-(5P) 
(11) G10316 013746 MOV E-MP,-(SP) 
(18) 010322 012746 oo04eSe MOV SARLMP, - (SP) 
(3) 010328 013746 002156 MOV E.DA,-tSP) 
‘8) 910332 012746 oo04244 MOV #ARLDA, -( 
(7) 010336 O12e746 O10524 MOV #FRMNT2B, -( SP) 
‘6) 010342 012746 000007 MOV #7,-(SP3 
°3) 910346 010600 MOV cp 
(4) 9010350 i94614 EMT CSPNTB 
(4) 010352 062706 op0020 ADO #20, SP 
2255 010356 o00207 RTS PC 
3257 010360 LINE3: PRINTB &#FRMT3, 8EM101 
‘8B: ©19360 oOl1e746 . 007320 MOV #EM101,-(SP) 
(7) 910364 012746 010553 MOV SFRMT3.-(SP) 
‘6) 010370 612746 900002 MOV He, (SP) 
(3) 010374 010600 MOV SP‘ RO 
‘4) 010376 104014 EMT CSPNTB 
4) 010400 062706 oD0006 AD a6 
2258 910404 PRINTS sFRMT3, #EM102 
[Bs O10404 O12746 007365 MOV wEM102,-(SP) 
‘7; QO10410 O12e746 O10553 MOV aFRMT3.-(SP) 
6) 010414 012746 000002 MO #2,-(SP) 
2, Oi0420 O10e06 MOV SP‘ RO 
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(4) 910422 104014 EMT CS$PNTB 
(4) 610424 O62706 o00006 ADD #6, SP 
| 3259 610430 o00207 RTS 
| 389 
3265 010432 O4YO44S O47503 052116 FRMTI: .ASCIZ /“ACONTROLLER: “06“A DRIVE: %O1/ 
3266 010472 047045 052045 OS204S FRMT2: -ASCIZ LANA TAT OB LT? %06/ 
3267 010511 O45 O22S24 O33117 FRMTCA: .ASCIZ /%T%OB%T%OE/ 
3268 010524 oS2045 O4744S Oee466 FRMTOB: .ASCIZ /%TXOEX“TXOE%A %OB%A %06/ 
3269 010553 O45 022516 000124 FRMT3 SCT ZENA 
3270 010560 047045 O4O44S OS4HI0S FRMT4: ‘ASC CUNAREXP'D: XOBZA REC'D: %06/ 
3271 010613 O45 000116 FRMT99: .ASCIZ /%N/ 
3872 010618 4704S OYO44S O40S14 FRMTS: -ASCIZ /XNXALAST: “OB“A PRES: %06%A EXP’D: %O6xN/ 
3273 010667 O45 O22516 O40501 FRMT6: -ASCIZ /“N“AAT PROCESSOR LEVEL %06% 
3274 010724 o4044s 051105 O47S522 FRMTI1: :ASCIZ /%AERROR LIMIT EXCEEDED-DROPP EDN 
3275 010765 QUE O22616 O42I01 FRMTIZ; “ASCI2 /“NZADRIVE DID NOT RECOVER FROM POWER FAILUREXN/ 
3878 011044 o47045 O5204S O4O44S FRMT13: :ASCIZ /%N“T“A - WILL NOT TEST“NY 
357 011076 EVEN 
327 
3280 
3284 
3285 
3586 011076 ENDMOD 
ra 
3288 
3289 011076 BGNMOD HPTCODE 
3291 011076 BGNHW 
(3) 011076 oo000S .WORD Li0010-LSHW/2 
3292 011100 174490 "WORD 174400 SR 
3293 011102 000330 WORD 330 : VECTOR 
3294 011104 oog240 WORD 240 : PRIORITY 
3295 611106 Oo0000 WORD O :DRIVE (BITS 8,9,10) 
3236 011110 oo0001 WORD 1 ?RL11 = 1, ALVii’= 0 
3ese Biiiis EN BO10 
4 $ . 
2299 
3300 Ollile ENOMOD 
3308 011112 BGNMOD SPTCODE 
3304 011112 BGNSW - 
a5pe O11115 oooo02 .WORD LIOO11-L$SW-2 
3306 911114 900000 DROP: .WORD 0 
3307 0611116 900012 MERLMT: .WORD 10. 
3308 011120 900000 T.SIZE: .WORD O 
3310 oO11122 ENDSW 
257) Ollize L10011: 
3Ete 011122 ENDMOD 
3314 ol1ile2 BGNMOD OSPCODE 
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| DERLAA.PLI1 05-OCT-77 10:41 INITIALIZATION CODE SEG 9037 
i 
MYT CSRESET 
oe nine EC ADEF SEF PLR POWER UP?77? 
(3) 011255 012700 000034 nov HEE. PUR, RO 
| 332 biiseg (ONO NCOMPLETE, NOPWR ; NO, BRANCH 
(52 Biise’ A020c° -YES. SET POWER FLAG 
| 3358 piiss® Biai35 — BR” a jc0 to CONTINUE POINT 
3330 011276 NOPWR: READEF #EF. RESTART ;RESTART 
(3) p1isee 012700 0900037 MOV #EF RESTART, RO 
(3) 011302 104050 MT F 
3331 011304 COMPLETE START 
(2) 011304 103410 C START nealeiaal 
3332 O11 READEF #EF.NEW ; ; NEW 
(3) 611306 01e700 900035 nov s F ANEW, RO 
3533 pitts adage: BCOMPLET nails START ; YES, THEN RE INIT 
(2) 611314 103404 
READEF #EF.START ; START??? 
373} piste 012709 oo0040 nov eer TART , RO 
3aa¢ Bitssg 1eNG BNCOMPLE TE CONTINUE 
3556 Bitsce 93995 oo2014 ooe114 START: Ov COTO RUT. 
3337 011334 012737 177777 O92116 “MOV #-1,UNITST 
3338 011342 0004 
ONT INUE: ADEF _#EF. CONTINUE ; CONTINUE? ??? 
3) 1134 012700 000036 Hoy #EF . CONTINUE, RO 
4 1352 BCOMPLETE CONT 
3334 Bi izes 103443 BCS CONT 
BS S113 005737 002114 - NXT: 1ST UuT ; : DONE ALL UUT’S 
4 ii3e5 73008 77777 002116 - MOV #-1,UNITST 
cen 011370 013737 O02014 002114 MOV LSUNIT, WUT 
seg Biig7s Roses? poste ea 
3323 Bi 138 REST: GPHARD UNITST,RO 
(3) O11406 013700 002116 MOV UNITST RO 
(3) O11412 104042 EMT HR 
3351 O114i4 coaid BCOMPLETE . 1S 
2462 Olisie b52799 002112 TST PWRFLG ;POWER FLAG TO 0 
3353 011422 001754 BEQ XT !YES, DONT DEC IT 
3354 011424 7 o02112 DEC PWRFLG | 
3355 ptt tse tangy B NXT ;GET NEXT ONE 
33 11432 012037 002130 1S: MOV (RO)+,BCSR 
335 Bt tyse B isp 35 02134 MOV (ROJ+, BVEC 
328 Blige Bis037 pOStae 3 Moy (RODS BRIWEY 
gp0 011452 012037 OO2eSe MOV -(RO)+;T.CNTLR  ;GET CONTROLLER TYPE | 
3362 011456 O00S027 oc0z246 CLR ERRLMT ;INIT ERROR COUNT 





ee es * ae 
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| OUTERR _MACY11 30(1046) 30-OCT-77 16:51 PAGE 84- 
| BoA ER eT ecot Pes? satel INITIACISATION CODE . - SEG cozE 
63 0114 137 O21 CONT: MOV BCSR,RO 
| BES ee ee See 
3366 0114 1 138 MOV RO; RLBA 
3367 Otis ? po900e ADD . 
3368 0115 1 b02124 MOV RO; RLDA 
3363 O11 le 700 oode ADD #2, 
3370 O11 5 2126 MOV RO; RLMP 
ei lisse Giroee melt me | Bets 
3373 911530 98 011120 ene T.SIZE ;D0 WE WANT TO CHECK UNITS?? 
3374 11 1461 BEQ 5$ NO 
33 011536 005037 002170 TRPFLG CLR OUT TRAP FLAG 
3338 O1154e SETVEC ERRVEC,#TRPHAN, #340 ‘SETUP VECTOR TO CATCH NON-EXIST 
(6) BLiede BTeeMe biaace A = ad 
B BHER Blas mikes a nl 
\S- o- 
(3) bi tees b503 EMT Cc svec 
ais} BLES! Ob2708 oon910- BoD 8105 avin sadn Ge 
3358 Olt 74 5 CLRVEC ERRVEC ;RELEASE VECTOR 
i Bilzes fagge ovsene cy estes '® 
3380 811889 bg¢938 002170 TST TRPFLG ;DID IT TRAP 
3381 011606 O01 BEQ !NO, CHECK IT’S DRIVE 
3382 011610 12737 003370 o02250 MOV #NORES, WHY :SETuP ERR MESS 
33 11616 is BR ay 
338¢ 11620° 012777 o00200 170272 7S: MOV #200, ORLCS ;CONTROLLER READY 
3386 Bt ips? 053777 002136 170264 BIS DRIVE, aRLCS :SELECT DRIVE 
3387 011634 036777 000001 170256 BIT #1,aRLCS ;ORIVE THERE 
3389 O11644 012737 003406 o02250 MOV #NODRY , WHY :SETUP ERR MESS 
3290 011652 8S: PRINTB #FRMTL3,WHY | 
(8) 011652 013746 oO2250 MOV WHY, -(5P) 
(7) O11656 O1e7ub O1ro44 MOV aERAT 3 -(SP) 
(6) 011662 012746 o002 MOV #2, = P} 
(3) O11666 010600 MOV S 
(4) 011670 104014 EMT CSPNTB 
(4) 011672 706 oo0006 ADD 86, 
3231 11676 900434 BR 6g 
3393 0117 005737 ode2l12 S$: TST PWRFLG ;RECENT POWER FAILURE???? 
3334 Biidby polde> BEG END NO ee 
; THERE WAS A RECENT POWER FAILURE, THEREFORE WE WILL WAIT 
3 :SIXTY SECONDS FOR THE DRIVE TO COME READY 
MOV #60.,R1 ;SIXTY SECOND TIMEOUT 
MOV #200; JRLCS :SET CRDY 
BIS DRIVE, SRLCS :SET IN ORIVE SELECT 
2s: BI #ORDY; JRLCS :ORIVE READY??? 
BNE $ :YES, THEN START TEST 














OUTERR MACY11 39 1046) 30-OCT-77 16:51 PAGE 84-7 
OZRLAA.P11 05-OCT-77 10:41 INITIALIZATION CODE SEG 0039 


340S 011736 WAITMS #10. ;WAIT A SECOND 
(3) 611736 012700 oooocle MOV #10. ,RO 
Saat} 011742 104026 EMT CSWTM 
3407 011744 005301 DEC Rl ;SIXTY SECONDS GONE BY 
3108 011746 001367 BNE 2s :NO, GO BACK 
3410 011750 PRINTS #FRMT12 ;DROPPING DRIVE 
(7) 011750 o12746 010765 MOV #FRMT12,-(SP) 
(6) 011754 16746 000001 MOV #1,-(SP3 
(3) 011760 010600 MOV 
(9) ©O11762 104014 EMT CSPNTB 
3411 eee peasos nyt 6S FR Pe’ C TNE! GIVE DRIVE INFO 
3412 011774 DODU UNI TST :TELL SUPERVISOR TO DROP IT 
'3) Bidboe 68088 O26 pry eapoeu'*® 
3413 12002 DOCLN ;FORCE AN ABORT 
(3) Ol2002 104044 EMT CSDCLN 
ayie 
316 012004 012777 000013 170112 3S: MOV #13, IRLDA ;SETUP DR RST 
341 120l2 012777 O00204 170100 MOV we04 @RLCS :GS FUN 
3418 012020 053777 002136 170072 BIS DRIVE, aRLCS :SELECT DRIVE 
3419 012026 042777 O00e00 170064 BIC #200, JRLCS tISSUE IT 
3420 012034 032777 GOOe00 170056 4S: BIT #200, JRLCS :WAIT FOR READY 
sel 012042 1774 BEQ ug 
3423 012044 END: SETVEC BVEC, #INTSRV, #340 
(7) O1204% 012746 000340 MOV #340; -(SP) 
(6) O12050 012746 013310 MOV #INTSRV, -(SP) 
(5) 012054 013746 002134 MOV BVEC, -( SP) 
(4) 012060 012746 000003 MOV #3,-(SP) 
(3) 612064 104037 EMT CSSVEC 
(2) 012066 062706 000010 ADD #10,SP 
2424 g1c07e 005037 o02166 R PFLG sCLR PROCESSOR FLAG 
3425 012076 READBUS + @-BUS 
(3) 012076 104007 EMT CSRDBU 
3426 012100 BNCOMPLE TE 1S 
(2) O12100 103002 BCC 1$ 
3427 Olel0e 005237 oo02166 INC PFLG ;NO, Q-BUS THEN 
3428 012106 1S: 
3429 012106 ENDINIT 
(3) 012106 L10012: 
343 012106 104011 EMT CSINIT 
3431 012110 ENDMOD 
3433 012110 BGNMOD CLNCODE 
3435 012110 BGNCLN 
3437 012110 SETPRI #PRIO7 . 
(3) 012110 012700 o90340 MOV #PRI07,RO 
93 612114 104041 EMT CSSPRI 


ee ee ee o-- (eee 
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OZRLAA.P 11 


012156 

S464 012156 
3466 012160 
(3) Q12166 
(3) O12160 


O012ibe 


3483 Cl2166 


S485 Ol2el6é 
(32 Olelee 


| 
| Suze 

5455 
3460 012156 


MACY11 30/1046) 
0S-0CT-"7 


032777 
001774 


042777 
013700 
104036 


005737 
001402 


008337 


1040ie 


000240 


104055 


oode4C 


104054 


104026 


10 
ooo2z00 


000100 


002134 


002112 


002112 


30-OCT-77 oS: 5) 
41 Ni 


167774 


167764 


1S: 


es: 


L10013: 


BGNMOD 


L10014: 


ENDMOD 
BGNMOD 


L10015: 


ENDMOD 


.SBTTL 
BGNMOD 


CKERLT: 


PAGE 84-8 
TIALIZATION CODE 


BIT 
BEG 


BIC 
CLRVEC 
MOV 
EMT 


TST 
BEQ 


DEC 


ENDCLN 
EMT 
ENDMOD 


DRPCODE 
BGNDU 
NOP 
ENODU 
EMT 


ADDCODE 
BGNAU 
NOP 
ENDAU 
EMT 


B04 


#CRDY,@JRLCS 
1$ 


SINTEN, JRLCS 


BVEC 
BYEC, RO 
CSCVEC 


~~ ; TREAT POWER FAILURE 


PWRFLG 


CSCLEAN 


C$0U 


CSAU 


GLOBAL SUBROUTINES 


GLBSUB 
INLOOP 
EMT 


CSINLP 





SEG S040 


— 





OUTERR MACYLI 301048) 
DIRLAA.P1L 05-OCT-77 
are Bisica 103427 
| 36; O1 17, 00873" 
- 3488 12176 O14e4 
3489 012200 005237 
3490 Bigeds TRE 
3431 Olee2le 2416 
3492 
3493 012214 
(7?) Oigel4 01 746 
(6) Qleeed Ole746 
(3) Qle2e4% 010600 
(4) Qle2eee 104017 
(4) Ql2e230 O62e706 
3494 012234 004737 
3495 012240 
(3) 012240 013700 
(3) O12e2e44 104053 
2496 012246 
(3) O12246 104044 
3497 Oleeso 
3498 Oleeso o00e205 
3499 
3500 
3501 
3502 
3503 
3554 
3505 
3506 
3507 
35028 
3503 
3510 
2511 
3512 
3513 
3014 
3515 
3516 
3517 
3cig 
3519 
35. 0 
2S5ee 012252 005037 
3Se3 bi geee 032737 
soso isSte 001001 
3526 Bissse oso 
3S2e7 Olee76 O0e401 
3S. 012300 poo414 
2529 012302 023727 
2530 012310 001410 
3531 Ol2312 013700 
ZEz2z Ol23i6 042700 


30-OCT-77 16:51 PAGE 84-9 
10:41 GLOBAL SUBROUTINES SEG 
BCOMPLETE rns 
pcs 9 
011114 5 DROP 
BEQ 393 
002246 INC ERRLMT 
002246 O11116 CMP ERRLMT, MERLMT 
BLT 995 
PRINTF #FRMT11 
010724 MOV #FRMT11,-(SP) 
000001 MOV #1,-(5P3 
MOV SP’R 
EMT CSPNTF 
oo00004 ADD , SP 
010102 JSR PC'LINE1 
DODuU UNIT TST ;OROP THE UNIT 
002116 MOV UNTTST RO 
EMT cCs$00Du 
DOCLN 
MT CSOCLN 
993: 
RTS RS 
.SBTTL ROUTINE TO CHECK FOR CONTROLLER ERRORS 
popeeeeneeeeer ot ate ite Pon tine ee re 
:#THIS ROUTINE WILL ygheck RLCS FOR ERRORS AND PRINT THEM 
:#ACCORDINGLY. IT WILL MERGE THE ERROR PRINTOUT NETH THE TEST 
; ERROR MESSAGE. 
| REXAMPLE: RLCS CONTAINED FOLLOWING ERROR(S): 
+4 SEEK UNDER INTERRUPT 
-& 
;* 
°# 
j ROUTINE USES RO,R1 AND PICKS HEADER FROM R3 
if CALL ISR RS, CHERR 
i* 
if 
002150 CHERR: CLR DERFLG ;CLEAR OUT DRIVE ERROR FLAG 
176000 o021Se2 BIT #176000,£.CS i ANY ERRO 
BNE 1398 ‘AF YES, SAVESTIGATE 
002254 oooco4 199%: CMP TMPFNC, #GSTAT FUNCT ION-NOP RESET, GETSTATUS 
BLT 98S YES, GO CHECK IF ONLY DRIVE ERROR 
BR i$ i YES SERVICE ERROR 
902254 oo0002 92s: cnP THPFNC, #WRCHK 
002152 MOV E.CS,RO :GET E.CcS 
001777 BIC #177?,RO ; 


ee ln eee 


CO4 


At ee a 


0041 


OUTERR MACYLI1 oes 4 
DIRLAA.P11 oe? $3 
33 012322 O2e7 
«3839 BIS3Se BSionr 
3235 012330 000205 
3238 012332 012701 
3235 O1saue 196083 
324) bi B3e0 5 
3542 Ole352 893395 
3543 012360 001405 
3544 012362 37 
354s 012366 4537 
3546 Ole37e 003431 
3547 012374 032727 
3548 O12e402 00146 
3549 012404 004537 
3550 Ole410 0034 
3551 Ole4¥le 03273 
355e Ole420 OCl4ee 
3553 Ole4¥2e 004537 
3554 O1ee6 003443 
3555 Gigs 03273 
3556 012436 001403 
3557 O1e440 O004S3 
35 012444 9003450 
3559 012446 032737 
3560 012454 O0142 
3561 O1e4S6 O04sS3 
3562 Ole46e 003456 
3563 012464 O00416 
3564 Ole466 032737 
3565 O1e4z4 1403 
3566 0612476 04S 
3567 Olesoe 003463 
3568 012504 032737 
3569 O12512 00140 
3570 012514 o004s3 
3571 012520 003470 
3572 OleSee 004537 
3573 O1eS26 003475 
3574 012530 004537 
3575 012534 oo00c0 
3576 012536 105011 
3577 
2578 c12540 
(2) O12540 1044 
(5) OleS42e oo04s4 
(5) O12544 003500 
‘S) O1e&46 010002 
ae o1essc oooe2os 
3581 
3582 
3583 
3585 


ee en we 


we ~~ -77 16:5 


140000 


007365 
002152 


013016 
040000 


002150 
013016 


020000 
013016 
002900 
013016 
904000 
013016 
010000 
013016 


004000 
013016 
010000 
013016 
013016 
013016 


0021S2 


002152 


0021Sé2 


002152 


002152 


002152 


0021Se 


DO4 


h re rg 
OUTINE TO CHECK FOR CONTROLLER ERRORS 


CMP #140000, RO ;ORIVE ERROR ALONE? 
BNE 1 :NO, GO SERV IC 
23: RTS RS :veS, EXIT 
1$: MOV #EM102,R1 : GET START OF STRING 
TST E.cs :IS COMPOSITE ERROR SET" (BETTER 
BPL 39% ;1T7°S NOT SOMETHING IS WRONG 
JSR RS, FIX :XES PUT “COMP” IN STRING 
993: BIT #DERR,E.CS :ORIVE ERROR SET? 
BEQ 3$ :NO. CONTINUE 
INC DERFLG SET DRV_ERROR FLAG 
JSR RS, FIX iES, PUT DRV” INTO STRING 
3$: BIT #NXM,E.CS j NON-EXISTENT MEMORY ERROR? 
BEQ 43 NO NT INUE 
JSR RS, FIX YES cout “NXM” INTO STRING 
NXMMES Nxt 
4$: BIT #OPI,E.CS Igo PI SET? 
BEQ GO CHECK BITS 11 8 12 
ISR RS, FIX ‘put "OPI" INTO STRING 
OPIMES “OPI” 
BIT #BIT11,E.CS  HEADERCRC ERROR? 
BEQ ;NO, GO CHECK HEADER NOT FOUND 
JSR RS, FIX 3G0°PUT “HCRC” IN STRING 
HCRCMES HCRC™ 
cs: BIT #81T12,£.cS HEADER NOT FOUND? 
BEQ $ GO PUT CRLF IN STRING 
JSR RS,FIX By Ot “HNE@ IN STRING 
HNFMES STN 
BR ag T "CRLF" IN STRING 
6$: BIT #BIT11,€.CS ‘DATA ERC ERR 
BEQ 7 {NO GO CHECK RATA LATE 
JSR RS,FIX ut “DCK” IN STRING 
OCKMES tobcK™ 
7S: BIT 4B1T12,E.CS :DATA LATE ERROR? 
BEQ 8 :NO U NooCRLE 
JSR RS, FIX :Put ebb IN STRING 
DLTMES BLT 
Qs: JSR RS, FIX 
MSCRLF 
R RS, FIX 
RESTMS: .WORD 0 :HEADER FROM TEST 
CLRB (RL) , [PUT TERMINATOR IN 
ERROF  300.,LF,ERR6 
RAP TSERCODE 
WORD a) 
-WORD LF 
“WORD ERRE 
RTS RS sEXIT ROUTINE 


-SBTTL LOAD RLCS 


fs RERERERERERAEKAAAAE LALA LLALSEAAARERSLAAE LLL RERAAAREARELARERFSHR 


;# ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED 


BE: 


E04 


| OUTERR MACYL1 30(1046) 30-OCT-77 16:51 PAGE 84-11 
| OZRLAR.Pil 05-0cT-?77 10:41 LOAD RLCS SEG cO42 
|. 359s :% CALL: JSR RS,LDFUNC 
' 3586 :# . WORD ;BITS TO BE LOADED, FUNCTION 
3587 :# :AND INTR ENABLE ONLY 
| 3588 + 
3591 012552 012537 002174 LDFUNC: MOV (RS)+, LDCSR ;GET BITS TO LOAD 
3592 012556 005737. 002150 TST DERFLG 
3593 012562 001424 BEQ 98$ 
3594 012564 013746 002140 MOV B.CS,-(SP) 
359S 012570 012777 O00013 167326 MOV #13, JRLDA 
3536 012576 Ole? 37 000004 902140 MO aGSTtAT.B.csS 
3597 012604 3737 002136 002140 BIS DRIVE ,8.CS 
3598 012612 013777 OO02140 167300 MOV B.CS, aRLCS 
3539 012620 012637 002140 MOV (§P)4+,.B8.¢5 
3600 012624 032777 OO00200 167266 995: BIT #200, 3RLCS 
3601 012632 001774 BEQ 995 
3692 012634 010346 983: MOV ~° R3,-(SP) ;SAVE R3 
3603 012636 042737 177661 002174 BIC #177661,LDCSR ;CLEAR ALL BUT FUNC 8 INTR EN 
3804 012644 013737 002174 912770 MOV LOCSR, FADFNC :SAVE FUNCTION - 
3605 Ole6Se 042737 000100 012770 BIC ®INTEN,FNDFNC ;ONLY FUNCTION 
3606 Ole660 013737 012770 OO0ees4 MOV FNOFNC;, TMPFNC 
3607 O12666 012703 012772 MOV #HORLST,R3 ;GET HEADER LIST 
3608 Ol2672 006237 612770 ASR FNDFNC :ALIGN TO RIGHT 
3609 012676 001404 BEQ 2F 
3610 012700 022323 1$: CMP (R3)+, (R3)+ ;BUMP_R3_BY 4 
3611 012702 005337 01277 DEC FNDFNC :FOUND IT 
3eie 012706 001374 BNE 1$ ?NO, KEEP LOOKING 
13. 012710 032737 000100 002174 2s: BIT #INTEN,LOCSR :YES,00 We WANT FLAG OR INTR 
3614 012716 001401 BEQ 3$ FL 
3615 O1e720 005723 TST (R3)+ :INTR POINT TO THAT ONE 
3616 Ole722 011303 3S: MOV (R3),R3 :SET HEADER 
3617 012724 010337 012534 MOV R3,RESTMS :SET UP HEADER 
_ 3618 G12730 053737 002136 002174 BIS DRIVE,LDCSR :SELECT DRIVE 
3619 012736 052737 000200 002174 4S: BIS #200, L0CSR :CONTROLLER READY 
3620 012744 013777 OO02174 167146 MOV LOCSR, ARLCS 
3621 Ole7S2 004537 013036 JSR RS. BEFORE 
3622 012756 042777 O00200 167134 SS: BIC #200, JRLCS 
_ 3623 012764 012603 MOV (SP)4+,R3 ;RESTORE R23 
3624 012766 o00205 RTS RS :EXIT 
3626 012770 oo0000 FNDFNC: .WORD O 
003563 HDRLST: NOPMES 
003614 NOPINT 
003646 WCKMES 
003706 WCKINT 
004133 OKHDOR: GSTMES 
04172 GSTINT 
4 SEKMES 
004101 SEKINT 
002747 RHOMES 
004007 RHDINT 


i KEFLERELELEREAAAEA LAE RELA LALELELERRELERELRELARERAESRLERELARPERAEER 


;*#ROUTINE TO MOVE ASCII STRINGS 
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BERLAA.P LL o5-0cT-?7 10:41 LOAD RLCS SEG co44 
3¢4 ; FUSES REGISTERS RI - WHERE STRING IS BEING BUILT 
3643 + CALL JSR RS, FIX 
3643 8 . WORD ;ADDRESS GF STRING TO MOVE 
3646 013016 012500 FIX: MOV (RS>+,RO ;GET ADDRESS AND MOVE RETURN 
3647 013020 112021 18: MOVB (RO)+) (R1)+ GET BYTE AND UPDATE 
3648 013022 001376 BNE 1$ :WATCH O BYTE TERMINATOR 
3649 013024 10574i Tete =(R1) i BACK UP OVER ZERO BYTE 
3650 013026 600205 RTS RS tEXIT 
3ee2 
3653 : ;LOAD REGISTERS BEF ORE FUNCTION 
3053 :CALL: JSR RS, BEFORE 
3656 013030 017737 167064 OC02i40 BEFORE: MOV @RLCS,8.CS ;READ CS 
3657 013036 017737 167060 O02142 MOV JRLBA;B.BA ?READ BA 
3658 613044 017737 167054 002144 MOV @RLDA;B.DA tREAD DA 
3659 0130S2 617737 167050 O02146 MOV aRLMP; B.MP :READ MP 
3660 013060 Od6020S RTS RS 
3661 
3662 
3663 ;LOAD REGISTERS AT ERROR 
3ob4 :CALL: JS RS, AFTER 
3666 013062 017737 167032 002152 AFTER: MOV ORLCS,E.CS sREAD CS 
3667 013070 017737 167026 002154 MOV @RLBA,E.BA :READ BA 
3668 013076 017737 167022 O0e156 MOV @RLOA;E.DA tREAD DA 
3663 013104 017737 167016 2160 MOV MP’E.MP *READ MP 
3670 Oizile 017737 167010 O0elbe MOV SRLMP*E. MP1 ?READ MP 
3671 O13120 017737 167002 O02164 MOV JRLMP,E. MP2 ?READ MP 
3678 013126 ofo20s RTS RS 
3674 
3675 
3678 .SBTTL ROUTINE TO CALCULATE CRC 
3678 ;ROUTINE WILL CALCULATE A CRC-16 CRC_ON A_WORD UO 
3673 ;1-16 BITS IN LENGTH, RESULT IS RETURNED iN BR AP acen 
3681 : CALL: JSR RS, SIMBCC 
3682 : WORD ; NUMBER OF BITS (1-18) 
3683 : "WORD :DATA FOR CRC CALCULATION 
3684 : > WORD *PREVIOUS OR STARTING CRC 
3685 : {SHOULD BE ZEROED FOR START) 
3686 : ROUTINE USES RO,R1,R2 
3688 013130 oO1004E SIMBCC: MOV RO,-<SP) ;SAVE RO 
3689 Oi3i32 010146 MOV R1;-(SP) :SAVE R1 
3690 013134 0190246 MOV Re’ -(SP) :SAVE Re 
3691 013138 b1e537 002210 MOV (RS) +, TEMP2 :GET NUMBER OF BITS 
32692 012314 12537 oosel¢ MOV (RS)+’ TEMPS :GET DATA FOR CRC CALCULATION 
3692 013146 012537 002219 MOV (RE34’ TEMP :GET STARTING CRC 
3694 013152 005037 O02204 1$: CLR BCCFBK 
3695 013156 013700 O0eci4 MOV TE ae, RO GET PRESENT CRC 
3696 0123162 956037 OOz2e2le ROR TEMPS’ :ROTATE NEW DATA 
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g4~13 
ROUTINE TO CALCULATE CRC 


ADC RO 
BIT #1,RO 
BEQ 2g 
COM BCCFBK 

2s: MOV XPOLY, RO 
COM RO 
BIC RO, BCCFBK 
CLC 
ROR TEMPY 
MOV BCCFBK RO 

Vv 4,R1 
MOV 
IC 

BIC Sh ae 
BIS Re 
BIC <POLY, TEMP4 
BIS RO, TEMPY 
DEC TEMP2 
BNE 1$ a“ 
MOV TEMPY , CALBCC 
MOV ( des Re 
MOV (SP 
MOV (ep)s 
RTS RS 


MERGE NEW WITH OLD 
;81T O SET 


;CLEAR CARRY 


; RETURN 


Bas ts TO_ SET FLAG _IF el OCCURRED 


“TRPHAN” IS IN LOCATION 


TRPHAN: INC TRPFLG 
RTI 
BGNSRY 
INTSRY: INC INTFLG 
ENDSRV 
L10016: 
RTI 


ROUTINE TO WAIT FOR DRIVE READY 
WiTDROY: MOV R1 ahoP2 


MOV #200 
18: BIT SORDY. ORLCS 
BNE 2s 
WAI TUS a 
MOV #1,R0 
EMT - C$WTU 
DEC Rl 
BNE 1 
ERROF 200. ,ORTIM,ERRS 
RAP TSERCODE 


= TRAP 


ce 


s INDICATE . INTERRUPT 


AVE Rl 
{TIME OUT OF £00 MILLISECONDS 
: ORI VE READY” 


;WAIT A WHILE 


;CHECK IF TIME U 
;NO, GO CHECK DRIVE READY 


| 
| 
;1F NOT CONTINUE 
;GET CRC POLYNOMIAL (CRC-16) 
;COMPLIMENT POLYNOMIAL 
:DRIVE READY DID NOT SET 


eee + ee ee 


HOY 
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;THE_ ERROR AND ABORT. AFTE Mal ty TEST WE ONLY KNOW 
i THAT WE CAN ADDRESS THE REGISTER 


D12440 ‘ TARS 
¢ SHRERELESLELALLLL AREAS LL AELELARERE FLA RSLALERLELRAAKAEERHRASLARISR 


033440 005037 002170 1S CL TRPFLG “CLEAR TRAP OCCURANCE 
013444 2s SETVEC ERRVEC #TRPHAN, #340. ;SET TO CATCH TRAP 
013444 012746 000340 MOV tsp) 

C1S4YSO Ol274E 013302 MOV STRPHAN. -( SP) 

612464 O13 


S746 OC2EGe MOV  —- ERRVEC, (SP) 


ll -OCT-?7 10:41 ROUTINE TO CALCULATE CRC SEG COME 
913350 000310 .WORD 200 . 
013352 4347 .WORD ORTIM 
013354 607770 “WORD  ERRS 
013356 012601 2s: MOV (SP)+,Ri ; RESTORE 
013360 0020S RTS RS ;EXIT 
;ROUTINE TO WAIT FOR CONTROLLER READY 
013362 O10146 WTCRDY: MOV R1,-(SP ;SAVE Ri 
013364 O1e7o1 017500 MOV #8000 :WAIT 800 MILLISECONDS 
013370 030777 00200 166522 1S: BIT e2000- Rt CONTROLLER READY 
013376 oO01014 $ :YES, EXIT 
013400 WAITUS 41 :WAIT A WHILE 
013400 oOle700 900001 #1,R0 
013404 i040e7 EMT CSNTU 
013406 005301 DEC R1 sCHECK IF TIME UP 
0134106 001367 BNE 1$ :NO GO BACK 
013412 004537 013062 ISR RS, AFTER ;GET REGISTERS 
013416 ERROF 100.,CRTIM,ERR& ;CONTROLLER TIMED OUT 
013416 104462 TRAP TSERCODE 
013420 000144 .WwORD 100 
013422 004322 WORD CRTIM 
013424 919D5e ‘WORD ERR6 
013426 oo0402 BR 3$ sEXIT 
013430 cCO4S37 012062 23: JSR RS, AFTER :GET REGISTERS 
013434 012651 38: MOV [oP +, Ri 
013436 ocd205 RTS :EXIT 
O1344u ENDMOD 
.SBTTL ##TEST L#* - RLCS ADDRESSABILITY 
12440 BGNTST ;#ee*START OF TEST#e*% 
012440 STARS 
2 prer*to sce IF We CAN ADDRESS THE CONTROL 
: TEST TO SEE IF WE CAN ADDRESS THE CONTROL 
ore. STATES REGISTER. IF TRAP WE WILL REPORT 
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301048) BO-0CT-77 16:51 PAGE 84-15 
05-0CT-?7 10:41 *TEST 1## - RLCS ADDRESSABILITY 
012746 900003 MOY #3,-(SP) 
104037 EMT CSSVEC 
062706 000010 ADD #10,SP 
00S777 166422 TST @RLCS sADDRESS RLCS 
CLRVEC ERRVEC RELEASE TRAP VECTOR 
013700 od2202 MOV RRVEC,RO 
104036 EMT CSCVEC 
05737 002170 TST TRPFLG ; TRAP OCCURRED??? 
01407 : BEQ 3S :NO, IKAY PROCEED 
013737 002120 002224 MOV RLCS, GDDAT :SEt UP ERROR DATA 
ERRSF EM1,ERRI :BUS TIMEOUT IN ADDRESSING RLCS 
104461 TRAP PetRCObE 
o00000 . WORD 
004375 “WORD EMI 
007574 WORD ERR1 | ; 
38: CKLOOP :;CHECK IF /FL:LOE IS SET 
104008 EMT |. CSCLP1 
ENDTST ;###REND OF TEST ##*% 
L10017: 
104001 EMT CSETST 
.SBTTL #*TEST 2#* - RLBA ADDRESSABILITY 
BGNTST ;#Re2START OF TEST ###* 
ARS 
« SRERHKASASASRHSSSRA HAA RASA SARAAAARERAARAAAAAALAEAARAAARAESERALEHR 
itest TO SEE IF WE CAN ADDRESS THE BUS ADDRESS 
tREGISTER. IF WE TRAP WE WILL REPORT THE ERROR 
AND ABORT. AFTER THIS TEST WE ONLY KNOW THAT 
thas ADDRESS THE REGISTER. 
5 REKAEASEAELAAASSLEAAEAELAAELRA EASE RARERAAEREHLERAAAAARARELAFERAS 
o0s037 002170 wal CLR ;CLEAR_TRAP OCCURANCE 
2s: SETVEC ERRVEC aTRPHAN, #340. = <SET TO CATCH TRAP 
012746 O00340 MOV -tsp 
Ole746 013302 MOV Sine ANS. (SP) 
013746 o02202 MOV ERRVEC, -(SP) 
012746 oo00003 MOV #3,-(SP) 
104037 EMT CSSVEC 
000010 ADD #10,SP 
005777 166330 ; TST aRLBA ;ADDRESS RLBA 
CLRVEC ERRVEC tRELEASE TRAP VECTOR 
013700 002202 MOV: ERRVEC RO 
104036 EMT $CVEC 
005737 002170 TST TRPFLG ; TRAP OCCURRED??? 
001407 BEG 33 ENO, CONTINU 
013737 ode2l22 oo2224 MOV RLBA, GDDAT :SETUP ERROR DATA 


ERRSF 1.,EM2,ERR1 ;BUS TIMEOUT IN ADDRESSING RGA 
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MACY11 30(1046) 30-OCT-77 16:51 PAGE 84-16 

ll OS-0CT-77 10:41 #&TEST 22% - RLBA ADDRESSABILITY SEG co4e 
Bizeis 104461 TRAP TSERCODE 

513628 poaaes WORD Ene 

013622 ooses§ .WORD ERRI1 

013624 3$: KL OOP ;CHECK IF /FL:LOE IS SET 

013624 104006 EM CSCLP1 

013626 ENOTST ;#22*END OF TEST # #44 

013626 L100e20: 

013626 104001 EMT CSETST 


-SBTTL ##TEST 3% - RLDA ADDRESSABILITY 
Bi 3530 BGNTST ;##HHSTART OF TEST##e% 
13630 STARS 


5p RERR REE EERE EERE RE EE EE EEE EEE RLEREERRRREERAERAEARRERERA SES 
; TEST TO SEE IF WE CAN ADDRESS THE DISK ADDRESS 

;REGISTER IF WE TRAP WE WiLL REPORT THE ERROR 

3;AND ABORT. AFTER THIS TEST WE ONLY KNOW THAT 

+ ADDRESS THE REGISTER. 


013630 § 
H j RARE RARER ER RERE EEE ALE RLAA RELA REALE RRA LE RAK ALLE RAAF LE RLEREEK 
013630 005037 002170 1$: CLR TRPFLG -CLEAR TRAP OCCURANCE 
013634 23: SETVEC ERRVEC, #TRPHAN, #340 ;SET TO CATCH TRAP 
013634 012746 000340 MOV #340, -(SP) 
013640 012746 9013302 MOV #TRPHAN, -(SP) 
013644 013746 O0220e MOV ERRVEC,-(SP) 
013650 Ole746 900003 MOV -(SP 
013654 104037 EMT C$SVEC 
013656 0& oo0001c ADD #10,SP 
613662 005777 166236 TST JRLDA ;ADDRESS RLDA : 
013666 , CLRVEC ERRVEC :RELEASE TRAP VECTOR 
013666 013700 od2202 MOV ERRVEC,RO 
013672 104036 EMT CSCVEC 
013674 005737 002170 TST TRPFLG ; TRAP OCCURRED??? 
013700 001407 BEQ 3$ !NO, CONTINUE 
013702 013737 o0212e4 oDe2e4 MOV RLDA, GDDAT ;SETUP_ ERROR INFO 
013710 ERRSF 2.,£M3,ERRI ‘BUS TIMEOUT IN ADDRESSING RLDA 
013710 104461 TRAP TSERCODE 
013712 oocode .WORD 2 
013714 o04447 “WORD EM3 
51328 sae 3$ eKL OOP a, CHECK IF /FL:LOE IS SET 
3 : L £ 
013720 104006 EMT CSCLP1 
013722 ENDTST ;#*2**END OF TEST#He# 
013722 L1ic0e1: 
013722 104C01 EMT CSETST 


.SBTTL #*#TEST 4## - RLMP ADDRESSABILITY 
013724 BGNTST ;#ea"START OF TEST#a2% 
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O-OCT-77 16:51 PAGE 84-17 
#eTEST Yee - RLMP ADDRESSABILITY SEG 


STARS 
peer eo GEE IF UE CAN ADDRESS THE MULTIPURPOSE 
i tEST TO SEE IF WE CAN ADDRESS THE MUL T IPURPOSE 
iREG STER Es F WE TRAP WE yttth & PORT THE UERROR AND 
AFTER THIS Ree tee INLY ENOL THAT WE CAN 
jApORESS THE REGISTER. 


$ 
s RRR ERERRRRRE EERE REEERRRL ALARA AEE AREAE LER RARAASRELELSRALES 
1$: CLR TRPFLG CLEAR TRAP OCCURANCE 
2s: SETVEC ERRVEC 8 TRPHAN, #340 ;SET UP TG CATCH TRAP 
MOV #340, -lSP) 
MOV STRPHAN, - (SP) 
MOV ERRVEC, -(SP) 
MOV #3,-(SP 
EMT CSSVE 
ADD 10, 
TST JRLMP ;ADDRESS RLMP 
CLRVEC ERRVEC :RELEASE TRAP VECTOR 
MOV ERRVEC,RO 
EMT CSCVEC 
TST TRPFLG ; TRAP OCCURRED? ?* 
BEQ 3$ 'NO, CONTINUE 
MOV RLMP , GDDAT :SEt UP ERROR INFO 
ERRSF 3.,E—M4,ERRI ;BUS TIMEOUT IN ADDRESSING RiMP 
TRAP TSERC obE 
. WORD 
» WORD Zu 
.WORD  ERRI 
3$: CKLOOP :CHECK IF /FL:LOE IS SET 
EMT C$CLP1 
ENOTST ;#**##END OF TEST###* 
L1002e: 
EMT CSETST 


-SBTTL ##TEST S#*® - READ WRITE OF RLCS 
BGNTST ;#eHESTART OF TEST# #44 


ARS 
; peer treat ur CAN URITE READ BIls 89 AND Bite Gl 
Phe THAT WE C sREAD BI AND. BITS 6-1 
CONT ROL AON ent eGist eR’ BITS, 1S- °8 AND O 
€ DN’ ARE BITS AT THIS TIME AND BIT 
sree ROLLER READY) IS ALWAYS WRITTEN TO A "ONE. 


5 RESAEAAKALARAELLEREREKA LLL LELELRLELEARALLAAAAARARATAALAAAARLARER 


MOV eCSPAT,R3 ;SET UP TABLE POINTER OF PATTERNS 





co43 


DORLAA.P 11 0S-0CT-77 10:41 


94 14 
a 3) Briss 104004 
3896 014026 
389 14026 011337 OoO222 
3896 014046 75535 Bposo0 
3800 Diuo4e Gaeer7 O40000 
3901 014054 1403 
3308 14056 27 140000 
3903 014064 017737 166030 
3994 O14o7e 042737 000001 
3905 9141 02373” 002224 
3308 014106 1404 
3908 914110 

(3) O14110 104462 

(5) o14lie nee) 

2 BNE BEES 

4 ¢ 
33) Bi4is0 104010 

(3) O14122 oo00012 
3611 
3912 014124 905723 
3913 0141 020327 o0266 
3313 piaiss B51 356 — 
ae BUR 

(3) 014134 10400 
7 gige 
_(3) 014136 104001 
3318 
3919 
se 
33ee o14140 
3924 O14140 

(2) 
3925 
2926 
aH 
3929 014140 

fe) 
a 
333¢ O14140 012702 o02256 
“(3) 914144 104004 
2934 614146 
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BGNSEG ;##eeSTART OF SEGMENT#es« 
EMT CSBSEG 
CSTEST: 
MOV (R3). GDDAT ;GET PATTERN INTO GDDAT 
BIS GDDAT ; INSURE 60 E 
MOV eet PLCS OAR ALES (CONTROL BND STATUS) 
BIT ERR; JRLCS RROR PRESENT 
BEQ HEN EXPECT ORIVE AND 
BIS BERR! DERR GDDAT + THEN EXE ERROR 
993: MOV aRLCS, BODAT A CK 
BIC #DRDY; BDDAT ; IGNORE DRIVE READY 
CMP GDDAT’ BODAT 018 READ WHAT WE LOADED 
BEQ 1$ YES, THEN BRANCH 
ERRDF 4.,EMS.ERR2 men DATA IN RLCS 
TRAP TSERCODE 
.WORD 4 
. WORD EMS 
; “WORD RR2 
1S: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
EMT CSESCAPE 
WORD 10000S-. 
TST (R3)+ ;BUMP FOR NEXT PATTERN 
CMP R3, #CSEND :CHECK FOR END 
BNE cStest :NOT END, LOAD NEXT PATTERN 
ENDSEG ;#**HEND OF SEGMENT###® 
10000$: 
EMT CSESEG 
ENDTST ;#2"4HEND OF TEST ##H4 
L10023: 


EMT CSETST 


-SBTTL #*TEST 6## - READ WRITE OF RLBA 
BGNTST ;#**aSTART OF TEST##42 


STARS 

pgeecepregsnacrsanssepscszensavennageperssutegseeeetedsnannaunees 

; TEST THAT WE CAN WRITE/READ BITS IS THRU 1 THE 

sus ADDRESS REGISTER. FOUR id TERNS ARE seb: GROWING 1, SHIFTING 1, 
GROWING O AND SHIFTING 0. BIT O IS ALSO LOADED BUT 

erage ALWAYS COME BACK AS 0 


s RRSREAEARRERLASALAE AKA RLAL SAA LA RAAAARELLKALLAAAAERERKRA LE LEAR EA 


;GET START OF PATTERN LIST 


MOV #BEGPAT,R3 
;eeeaSTART OF SEGMENT##2#+# 


EMT CS$BSEG 


BGNSEG 
BATEST: 


’ 
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| 
DERLAA.PLL *#TEST 6## - READ WRITE OF RLBA SEG CCE1 
i 935 0141 7 oo0e22 MOV (R3) ,GDDAT :GET PATTERN TO SEND 
936 Bist ? Bessez ‘TST T.CNTLR :RLI 
| 3937 O14) 14 BEQ es 
| 33 0141 0001 o02224 BIC #BITO,GDDAT bee RLBA EVEN (UNIBUS) 
39 C1166 13777 2224 165726 2S: MOV GODAT; JRLBA LOAD PATTERN TO BUS ADDRESS 
3940 0141 17737 16S7ee OO022c6 MOV JRLBA; BODAT RE AD IT BACK 
3941 p14e0e 373% 2224 O0eec6 GDDAT; BODAT S IT CORRECT? 
gue 1421 BEQ 1§ F SO, BRANCH 
3944 g1Nei2 RROF 5. ENG E ERR2 eave WRONG IN RLBA 
(3) Ol4ele 10446 RAP st 
(5) 014214 oo0005 . WORD 
(5) O14el6 004572 > WORD Mb 
(5) bi veed 007606 WOR ERR2 
3945 iNgee 18: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
(32) Ol42822 104010 EMT CSESCAPE 
.3) Ois2e4 00012 -WORD 10000$-. 
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DZRLAA.P11 05-OCT-77 10:41 #HTEST 6%% - READ WRITE OF RLBA SEG cose 
43 
$49 014226 00572 TST (R3)+ ;BUMP FOR NEXT PATTERN 
3950 014230 020327 oo2464 CMP R3, #ENDPAT iC CK FOR END 
3331 014234 001344 BNE BATEST NOT END, BRANCH FOR NEXT 
3953 014236 ENDSEG ae OF SEGMENT#### 
(3) 014236 10000S: 
(3) 14236 104005 EMT CSESEG 
3984 O14e4 ENDTST ;#*###END OF TEST#### 
(3) O14240 L10024: 
(3) O14240 10400! EMT CSETST 
33c6 
3322 ; .SBTTL #**TEST 7*#* - READ WRITE OF RLDA 
S22 O14e4e2 BGNTST ;##*2"START OF TEST# HE 
961 o14242 T 
(2) x Segepneguagucoenesssrepeesesesseter*tonres acitkn 
3962 ite WE CAN WRITE/RE DISK ADDRESS REGISTER 
3963 7ALL BIT POSITIONS ARE WRITTEN USING FOUR P : 
3e3 nae i GROW WING 1, SHIFTING 1, GROWING O AND QUE TING 0 
ance, Le POET EP TEEPE TT ET ETT TTT TTT TTT TTrTer TTT r iT Tir i ttr itr r tr rte ree) 
3957 
3968 g1ueye 012703 oo02256 MOV SBEGPAT,R3 ;SET UP POINTER TO PATTERN LIST 
3369 14e86 BGNSEG ;*##£*"START OF apeesteidtcata 
(3) O14246 104004 EMT CSBSEG 
3970 014250 DATEST: 
3971 014250 011337 o02224 MOV (R3), GDDAT ;GET_ PATTERN 
3378 014254 013777 OO22e4 165642 MOV GDDAT, IRLDA :LOAD PATTERN IN DA 
3974 O14262 017737 165636 002226 MOV QRLDA, BDDAT ;READ_ PATTERN BACK 
3975 014270 023737 O02224 O0cecb CMP GDDAT; BDDAT :IS IT CORRECT? 
3378 014276 001404 BEQ 1$ ;BRANCH IF CORRECT 
2978 014300 ERRDF EM7,ERR2 ;WRONG DATA IN RLDA 
(3) 014300 104462 TRAP rate obe 
(5) 014302 o00006 . WORD 
(5) 014304 o04620 ~ WORD eau7 
(5) O14306 007606 “WORD ERR2 
3979 014310 1$: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
(3) 014310 104010 EMT CSESCAPE 
(3) O1431e oo001e “WORD i10000S-. 
a3 
3982 014314 005723 TST (R3)+  sBUMP POINTER 
3983 014316 O20327 o02464 CMP R3, #ENDPAT :AT END OF PATTERNS? 
3384 014322 001352 BNE DATEST ?NO, BRANCH BACK 
3986 014324 ENOSEG ;##END OF SEGMENT#*# 
(3) 14354 0400s Et we CSESEG 
3987 014326 ENDTST ;##£*END OF TESTHXR# 


ee ee 


605 
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| OUTERR MACYLI 30( 1046) 
| DERLAA.PLL 05-0CT-77 10:41 “TEST 74% - READ WRITE OF RLOA SEG ofS2 
‘3) 014326 Liooes: 
(3) G14326 104001 EMT CSETST 
3988 
3989 
3330 .SBTTL %*#TEST 8#* - BIS OF RLCS 
3992 014330 BGNTST ;##42START OF TEST##<« 
3993 014230 STARS 
(2) : See eeAT ue CAN USE THe “Ble” INSTRUCTION ON THE CONTROL 
3994 itest T WE CAN USE THE “BIS” INSTRUCTION ON THE CONTROL 
3995 AnD. STA Aus REGISTER. BITS 8.9 AND 6-1 AR TED TO 
3996 iSET INDIVIDUALLY AS Bs COLLECTIVELY E THOUT DESTROYING 
3997 ?ANY PREVIOUS DATA PAT bb PS 
3998 014330 STARS 
3559 as RKEKRKKARAKAAKAKAAAAAARARALERRAKRAAA KHER LAAAALAAARASARAKRARAKAAAAAAE LE 
4900 
4001 014330 012703 002570 MOV aCSPAT,R3 ;GET BEGINNING OF LIST 
4002 014334 BGNSEG ; ##*"START OF SEGMENT #*#* 
(3) 614334 104004 EMT CSBSEG 
4003 014336 : «1S: 
4004 Gitsse 612777 uove0O 165554 MOV aCROY JRLCS ; INSURE GO IS THERE 
400S O14344 011337 O0e2224 MOV (R3), GODAT :SET UP EXPECTED PLCS 
4666 014350 052737 OO0e00 od0e224 BIS HCROY GDDAT :IN GD 
4007 014356 051377 165536 BIS (R3), aRLCS ;BIT SET TDaTTERN IN RLCS 
4008 014362 032777 O40000 165530 BIT #DERR, IRLCS :IF ERROR BIT SET THEN 
4009 014370 091403 BEQ 9 sEXPECT IT ON THE READ 
4010 014372 OSe7 140000 o02224 BIS #ERR!DERR,GDDAT ;BACK 
4011 O14400 017737 165514 OOece6 99S: MOV JRLCS, BDDAT ?READ RLCS TO CHECK “BIS” 
4012 O1440&8 042737 O00001 O0eec6 BIC #ORDY ; BDDAT ;CLEAR ouT obhi VE READY 
4013 O144914 023737 002226 OO022e4 CMP BDDAT; GDDAT ;DID BIS WwW 
4014 014422 001404 BEQ 2g :BRANCH IF OB KAY 
4016 O144e4 ERRDF 7.,EM61,ERR2 ;WRONG DATA IN RLCS 
(3) O14424 104462 RAP TSERCODE 
(S) 014426 o00007 .WORD 7 
5) O14430 9006255 WORD EM61 . 
(5) O14432 007606 -WORD  ERRe 
4017 O14434 2s: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
(3) 014434 194010 EM CSESCAPE 
(2) O14436 Goc0012 -WORD 10000$- 
4018 ;BIT OR CLEARED OTHER BIT 
4020 O14440 005723 TST (R3)+ ;GET NEXT PATTERN 
4021 O14442 022703 o0ebb6 CMP #CSEND,R2 ;AT END OF LIS 
4022 014446 001333 BNE 1$ NO GO BACK FOR TEST OF 
4023 INEXT PATTERN 
4024 O14450 ENDSEG :#**8END OF SEGMENT###* 
(3) O14450 10000$: 
(3) 014450 104005 EMT CSESEG 
4025 O1445e ENDTST ;#2*xEND OF TEST##x« 
(3) O144se L10026: 
(3) O144S2 104001 EMT CSETST 





-SBTTL ##TEST 9** - BIC OF RLCS 
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4029 
4030 O0144S4 
4031 
4032 014454 
i2) 
4033 
4034 
4035 
4036 014454 
(2) 
4037 
4038 
4039 014454 012703 
4040 014460 
(3) O14460 104004 
4041 014462 
4042 O14462 012777 
4043 O14470 012737 
4044 O14476 1332 
4O4S O14S02 041377 
4046 014506 032777 
4047 014514 RO 1393 
4048 O14516 27. 
4049 014Se4 01773 
40S0 O014S32 04273 
40S1 014540 023737 
40Se O14S46 001404 
4053 
4054 014550 
(33 O14SSO0 i04%462 
(5) 014SS2 9000010 
2) Res Bese 
BEE sowig 
(3) Bisees 000012 
4056 
4OS7 O14Se4 005723 
4O0S8 014566 020327 
4059 014672 001333 
4060 O014S74 
(3) 014574 
(3) O14S74 1o040c5 
4061 014576 
(3) OQ14576 
(3) Ci¥576 104001 
4062 
4063 
4064 
4OES 
4066 014650 
4067 
4068 014609 
\¢3 
4069 
4O7C 
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002570 

001776 165430 
001776 O022e4 
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16S412 

049000 165404 
140000 O02224 
165370 OO0e226 
000001 d02226 
O0e2e2e& OO0eee4 
OO026EE 
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PAGE 85-2 
ReTEST S#* - BIC OF RLCS 


BGNTST 


STARS 
Babb -ek beh bn teDiheh tak bnbbnbelal-beh-b-i-teh-d-hd-behaheh-bahahalet-b-lglel betel -heh-iehalalehalahalaieheiehdichehdlal 


itesT THAT THE “BIC” INSTRUCTION WILL WORK ON THE 
: CONTROL AND STATUS REGISTER. BITS 8-9 AND 6-1 ARE 


;#e222START OF TEST ##R# 


TARS 
5p RRRRRRRER AREAS ERR AR REAR EEE LAA EERE RRA ELLE RA AER RARERLAE LASSE 


MOV #CSPAT,R3 ;GET BEGINNING OF PATTERNS 
BGNSEG :###4START OF SEGMENT##4# 
si EMT CSBSEG 
MOV #1776, 9RLC ;SET oe SETTABLE BITS 
MOV #1776 GDOA BET uP EXPECT DATA IN 
BIC R3), GDOAT 
BIC )* IRLCS :CLEAR BI TS LIN IN RLCS VIA “BIC” 
BIT Ms RR, JRLCS :IF DRIV ing R BIT SET 
BEQ ‘READ CT IT RE? WHEN WE 
BIS. ERR! DERR GDDAT ACK 
99S: MOV SRL cs,8 DDAT OVE hice TO abonar FOR COMPARE 
BIC #ORDY  BDpAT ‘CLEAR ORIVE R 
CMP BDDAT’ GDDAT ID “BIC” WORK PROPERLY 
BEO $ BRANCH IF OKAY 
ERROF - 8.,EMb2,ERR2 ;WRONG DATA IN RLCS 
TRAP TSERCODE 
.WORD 8 
‘WORD EMb2 
;WORD  ERRe ca 
2s: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
EMT CSESCAPE 
“WORD 10000$-. 
TST (R3)+ :GET NEXT PATTERN 
CMP R3, #CSEND SAT EN NO OF LIST 
BNE 1§ NO BACK WITH NEXT ,PATTERN 
ENDSEG ee eHENO OF SEGMENT#*2# 
10000$: 
EMT CSESEG 
ENOTST ;*###2END OF TEST HRRX 
L100e7: 
EMT CSETST 
.SBTTL #*#TEST 10%* - BIS OF RLBA 
BGNTST ;#e*ESTART OF TESTxaxe 
STARS 


peeeeasonesesUeueusnenEsenneEeeendesseseusennesenesseuneeneesees 
test 1 THAT THE “BIS” INSTRUCTION WILL WORK ON THE BUS 
; ADDRESS REGISTER. BITS 15-0 ARE LOADED, ONLY BITS 15-1 
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O:10M6) 30-007-77 1e:S1 Page 85-3 
mts aT TT eeTEST 10%8 - BIS OF RLBA SEG Coss 


;ARE EXPECTED BACK. Ao ae PATTERNS ARE USED: GROWING 1, SHIFTING 1, 
GROWING 0, AND SHIFTING 


| 
| 
| 
T 
ef _ wehaadlanadactnnbeeancteer tatoo Bioiei ece ON AES nae | 
? MOV SBEGPAT,R3 :GET START OF LIST 
preeaans oeoapens: BGNSEG ieseeSTART OF SEGMENT#### 
104004 - EMT CS$BSEG 
?? ‘ R :CLEAR “BA” 
Tee 5 £88336 ett Rg aQ0AT get EXPECTED 
Ke peasee ao A NTL :RLAL 
73° 4 #1, GDOAT *BIT O CAN'T SET IN RLBA (UNIBUS 
Re wm oe GP the, agains 
g373° be3582 O0e2e4 CMP gobAT; cobAT ‘DID RBA. LOAD PROPERLY? 
14 BEG $ !BRANCH IF YES 
RROF  9.,£M63, ERR2 ;WRONG DATA IN RLBA 
04462 RAP TSERCODE 
0011 WORD 9 
seecee ee bs 
2s: ESCAPE SEG :IF “FL:0E SET LOOP, ELSE EXIT SES 
94019 EMT CSESCAPE 
0012 10000$-. 
00722 TST (R3)+ wrt NEXT PATTERN 
020327 coe4e4 CMP R32, PENDPAT 'B5p uE COMPLETE LIST 
001343 BNE l :NO. CO BACK FOR NEXT. 
ENOSEG :eekeEND OF SEGMENT###* 
1040s — CSESEG 
ENTS. ‘ ;#eeeiND OF TEST#e## 
10030: 
10400 EMT CSETST 
.SBTTL ##TEST ll#* - BIC OF RLBA 
BGNTST paeeeSTART OF TEST#ax# 
rjasetsaeenauneguansasonsrsnnsesstenanessnassesszessteaeraasrsess 
aboress REGISTER. 817s 15-1 BR * FETED WITH TH a PATTERNS 
iGROWIN 1, SHIFTING 1, chewing” AND SHIFTI 
| sRRESERELALAAFSLARRELALSLESLALLRERRLLLAAERERERRERLLLAFLALAFFRASS 
rae S MOV #BEGPAT,R2 ;GET START OF LIST 
es ee BGNSEG = > ##2%5 TART OF SEGMENT#s#+# 
14004 EMT CSBSEG 


AOE 


Qe ee ew oe - - - 


EOS 


 QUTERR MACYL1 30(1046) 30-OCT-77 16:51 PAGE 85-4 
| DZRLAA.P11 05-OCT-77 10:41 *#eTEST 11#* - BIC OF RLBA 
/ 4112 O14712 1S: - . 
4113 O14712 012777 177776 165202 MOV 8-2, 9RLBA ;SET RLBA TO ALL 1°S (BIT O=0) 
4114 014720 012737 i7occe 002224 MOV 8-2. GODAT :SET UP EXPECTED RESULTS 
' 4115 0149726 041337 O02e2e4 BIC (R33, GDDAT :IN GDDA 
, 4116 014732 041377 165164 BIC (R3)aRLBA ‘BIC RLBA 
| 11? 614736 017737 165160 o02226 MOV JRLBA, BODAT :READ RLBA 
| 4118 QO14794 (023737 O02ee26 Oo02224 CMP BDDAT , GDDAT ;BIC WORK OKAY? 
uiu3 0)47S2 0601404 BEQ 2s :IF YES BRANCH 
| 4121 O14754 ERRDF 10.,EM64,ERR2 ;WRONG DATA IN RLBA 
(3) 014754 104462 TRAP TSERCODE 
(S) 014756 Od00012 WORD 10 
(5) O14? 006502 .WORD EM6Y 
(5) 614762 007606 -WORD  ERR2 
4122 014764 2s: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
(3) 014764 104010 EMT CSESCAPE 
mt} 014766 oo001le WORD 10000$-. 
4124 014770 005723 TST (R3)+ ;GET NEXT PATTERN 
4125 014772 020327 ooe464 CMP R3, #ENDPAT tHAVE WE COMPLETED LIST 
4126 014776 OO134S BNE 1$ :NO, GO BACK FOR NEXT 
4127 015000 ENDSEG :##%HEND OF SEGMENT###* 
(3) 915000 10000$: 
| (3) 015000 104005 EMT CSESEG 
4128 015002 ENDTST ;##**2END OF TEST RH 
(3) 015002 L19031: 
(3) O15002 104001 EMT CSETST 
4129 
4130 
aigh .SBTTL #*#TEST 12%* - BIS OF RLDA 
4J3 
sta 015004 BGNTST ;##*2START OF TEST ##4% 
4135 o15004 STARS 
H (2) es REKKEAALALASAA KAA SSAKA SAA HARA AARARASRAKARALARRAKKARAAAAARELERLEARSE 
4136 : TEST THAT THE “BIS” INSTRUCTION WILL WORK ON THE DISK ADDRESS 
4137 tREGISTER. BITS 15-0 ARE TESTED WITH 4 PATTERNS, GROWING 1, 
4138 ‘SHIFTING 1, GROWING 0, AND SHIFTING O. : 
4139 O15004 STAR 
ite : 5 REEREL ERE SAAS RHEE RARE RE EEE LEAL AEE RELL LER ARLE REAR AAKARARE RAE 
4141 
4142 O15004% 012703 oO02256 MOV #BEGPAT,R3 ;GET START OF LIST 
4143 015010 BGNSEG :##*2START OF SEGMENT##2# 
(3) O15016 104004 EMT CSBSEG 
4144 015012 18: 
4145 O150i2 0905077 165106 CLR DA ;CLEAR “DA” 
4146 615016 011337 o02224 MOV (R3), GDDAT :SET EXPECTED 
4147 915022 1377 165076 BIS (R3).aRLOA :BIS RLDA 
4148 015026 017737 165072 oo2226 - MOV @RLDA, BODAT :READ RLOA 
4149 015034 623737 O02226 902204 CMP BDDAT; GDDAT :IS RLDA CORRECT 
4280 015042 9001404 BEG 2s : IF OKAY BRANCH 
4152 O1S044 ERRDF 11.,EM6S,ERR2  ;WRONG DATA IN RLDA 
(3) S15044 1o44e2 AP  TSERCODE 3 
| ‘S) OlSO4— OO00i3 WORD 11 
| 
Ss 
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*“MACY11 20°30" ) 30-OCT-77 16:51 PAGE 85-5 
Pil OS-O0CT-77 10:41 #eTEST le## - BIS OF RLDA SEG COs7 
gi 3089 006565 -WORD EMES 
1S$0Se 007606 -WORD ERRe2 
01S50S4 2s: ESCAPE SEG ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
Bizde? 104010 EMT CSESCAPE 
iSO 000012 -WORD 10000$-. 
Oi 3060 00$723 TST (R3)+ ;GET NEXT PATTERN 
01506e Oe03e7 O0e464 CMP R3, SENDPAT ;HAVE WE FINISHED? 
015066 0013Si BNE i$ ;NO GO BACK 
015070 ENOSEG ;##**END OF SEGMENT#### 
015070 10000S: 
015070 104005 EMT CSESEG 
01S07e ENOTST ;##*2*END OF TEST aee# 
015072 L1003e: 
0:1S07e 104001 EMT CSETST 
 .SBTTL ##TEST 13#* - BIC OF RLDA 
01s074 BGNTST ;#eeeSTART OF TEST#eae# 
C1SC74 STARS 


5 RRR ARERR REE EERE EERE EE EERE ELAR ELAR RE AERRER ERR AEE ERS 
:; TEST THAT THE “BIC” INSTRUCTION WORKS ON THE DISK 

;ADDRESS REGISTER. ALL BITS ARE TESTED WITH FOUR 

oe GROWING 1, SHIFTING 1, GROWING O AND SHIFTING CO 


oiso7 STARS 
a5 SKEARAKRALAKAAAALASERAAALAARARAASEAEAARALARAAAAFRHLERAAKAAELRALAALE 


015074 012703 002256 MOV #BEGPAT,R3 :GET START OF LIST 
015100 BGNSEG ;#*222START OF SEGMENT##4% 

015100 104004 EMT CSBSEG 

015102 012777 177777 165014 MOV #-1,9RLDA ;SET RLDA TO ALL 1°S 

015110 012737 177777 OOe2ee4 MOV #-1'GDDAT :SET EXPECTED DATA 

015116 041337 402224 BIC (R3) , GDORT :SET EXPECTED DATA 

015122 041377 164776 BIC (R3)’aRLDA :"BIC”™ RLDOA 

015126 017737 164772 oO02e26 MOV JRLDA, BODAT : REA LO 

015134 023737 002224 dOe2c6 CMP GDDAT: BODAT :DID “BIC” K? 

015142 001404 BEQ 23 :IF IT DID BRANCH 

015144 ERROF 12.,EM66,ERR2 ;WRONG DATA IN RLDA . 

015144 104462 TRAP TSERCODE 

016146 000014 WORD le 

015150 OO6E4 ‘WORD EMBE 

015152 907606 “WORD ERR 

015154 2$: ESCAPE SEG ;IF /“FL:LOE SET LOOP, ELSE EXIT SES 
015154 104010 EMT CSESCAPE 

01515¢ 0012 WORD 10000$-. 

015160 905723 TST (R3)+ ;GET NEXT PATTERN a 
0iSi¢2 920327 oco2464 CMP R3, SENDPAT DONE? 

O1Si66 OO1345 BNE 13 :NO GO BACK 

S15i70 ENDSEG !##**END OF SEGMENT###% 

536170 10050$: 


ReBSeesRRpRCC SS Be 
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MACY 11 g0< 1048. 30-0CT-77 16:51 page 85-6 
S-0CT-"7 10:41 e#eTEST lo#e - BIC OF RLDA 


8 104005 EMT CSESEG 
S ENOTST ;*##*#2END OF TEST Seas 
e 


L10033: 
104001 EMT CSETST 


-SBTTL ##TEST 14## - BUS RESET OF RLCS 
015174 SGNTST ;#eeaSTART OF TEST#e4" 
015174 STARS 


: TEST THAT A BUS RESET WILL CLEAR THE PROPER BITS 
;OF THE CONTROL AND STATUS REGISTER. THOSE BITS ARE 


42oe 


cs 


4i£ 55555 


SLALLELLL 4+ 
-~ -~fururururororun — furorurorofur — ~— fur 


LOWICITUM WI LITUPUUTUTUTOI TUPUTUPU PUlU r= & Lt b+ es Ce 


t£ 
sfutu-~ 


SLL 


turororuf- 
for OW = & NMR e ee ULI OOS NOW Swe ~~ ~Ow 


:BITS 6-1,8,9,10,11,12,13,15. BIT 1S WILL CLEAR ONLY 
:IF BIT 14 toRIVE RASA § NOT SET). BIT O (ORIVE READY) 
:1S A DON’T CARE « I AT THE START up THIS TEST BIT 
14 (DRIVE ERROR) I SET We WILL IN Ist IS THERE AFTER 
:THE "RESET" ALONG WITH BIT 15 (COMPOSITE ERROR). BITS 
saint i15-10 ARE NOT WRITEABLE. 
ie AKSSAASAALAASSARAKAAAAAAAAASRAAKRSLEAAAALKAAAARAAAEARAASRARLLKEAS 
015174 SETPRI #PRIO7 ;PRIORITY TO SEVEN 
015174 012700 000340 MOV #PRIO7,RO 
015200 104041 EMT CSSPRI 
0i520e o12777 000377 164710 MOV #377, 9RLCS ;LOAD ALL_RLCS LOADABLE BITS 
015216 0120737 900200 d02254 MOV #CRDY, GDDAT :SETUP EXPECTED 
015216 032777 O4O000 164674 BIT SDERR? ARLCS :DRIVE ERR SET? 
015224 901403 BEQ 1$ :IF NOT DON’T EXPECT IT 
0152 052737 140000 o02224  BIs SDERRIERR,GDDAT ';IT'S SET, INIT BETTER NOT CLR 
015234 Ol27D0 000100 18: MOV #100, RO :S&T UP A WAIT LOOP 
615240 BRESET :BUS RESET 
015240 104033 EMT CSRESET 
015242 005300 2$: DEC RO ;WAIT IN CASE OF DRIVE ERROR 
515e44 001376 BNE 2s ; 
O1Se46 017737 164646 O02226 MOV JRLCS, BDDAT :READ RLCS é 
015254 042737 000001 O02226 BIc #DRDY . BDDAT :CLEAR OUT DRDY - DON'T CARE 
6iS262 023737 O0e226 O0e224 CMP BODAT : GDDAT :DID INIT WORK 
515270 001404 BEQ 3$ :YES, BRANCH 
015272 ERROF 13.,EM67,ERR2  :WRONG DATA IN RLCS 
015872 104462. TRAP TSERCODE 
0if574 doo00i5 WORD 13 
015276 O06731 "WORD EM&7 
015300 90760€ ‘WORD ERR2 
015302 3S: 
015392 ENOTST ;#**eEND OF TEST#exe 
015302 £16034: 
6183G2 104001 EMT CSETST 


-SBTTL «##TEST 15## - BUS RESET OF RLBA 
oi:s2c4 EGNTST peeeeSTART GF TEST#x# 


——— - -— - a ee ~- 
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DERLAR. PL) o5-0CT-?7 10:41 eeTEST 1S#* - BUS RESET OF RLBA SEG COS 
4233 
4234 015304 STARS 

(2) g eee" 2 at ae an: nie he ee 
4235 TEST THAT A BUS RESET WILL CLEAR THE ENTIRE 
4236 :BUS ADDRESS.REGISTER. THE BUS ADDRESS IS LOADED WITH 17777¢ 
4237 “AND IS EXPECTED TO SE ZERO AFTER THE RESET ae 
4238 015304 STARS 
$2 5 f EERAAAERAAEARAAARE SRE RAKE LLL ELA RE RAELLALEL EKER SLAF AE EKAFESE SSDS 
4 
4240 
4241 015304 O12e777 177776 164610 MOV 8-2, JRLBA ;SET BA TO ALL 1°S 
4242 015312 005737 OdO2eS2 TST T.CATLR :RL11?? 
4243 015316 901403 “ BEQ 2s :NO 
4244 015320 OSe77? o90001 i64s74 BIS #1,@RLBA 
4245 015326 005037 o02224 2s: CLR GOBAT ;CLEAR EXPECTED DATA 
4246 015332 BRESET :ISSUE BUS INIT 
(3) 915332 104033 EMT SRESET 
4247 015334 017737 1e4se2 002226 MOV JRLBA, BODAT ;READ RLBA 
3e38 515342 991404 BEQ 1$ IF CLEAR BRANCH 
4250 015344 ERROF 14. EM70,ERR2 ;WRONG DATA IN RLSA 
(3) O1f344 104462 TRAP SERCODE 
(5) O15346 Ooo016 . WORD 
(5) 015350 OO676E WORD Enzo 
‘5; O16352 oC?eo6 -WORD ERRe2 
4281 015354 1S: 
be) 
4253 015254 ENDTST ;##*eEND OF TEST#eae 
(3) 015354 L1003s: 
(3) 15354 io400i - EMT CSETST 
42E4 
4255 
uses .SBTTL ##TEST 16%* - BUS RESET OF RLDA 
es . 
ase8 C1S25é BGNTST sx#e2eSTART OF TEST#e#« 
4260 OLS2S6 STARS 
‘ 2 ; ar aer sco aatt un, aie he one 
4261 'tEST THAT A BUS RESET WILL CLEAR THE ENTIRE 
4252 : DISK ADDRESS REGISTER. THE DISK ADDRESS IS LOADED WITH 177777 
WES 2 AND IS EXPECTED TO BE ZERO AFTER THE RESET. 
4264 O1S35¢ A TARS 
Ee g 5 FARAERERLARALFLRELALELALAALAERLARELERKALAREKSAAAELAARERHLELKAPE SE 
Sees 
4265 
4267 O15256 012777 177777 1E4SHO MOV a-1 @RLDA ;SET DA TO ALL 1°S 
#268 915364 905037 baz 224 cLR DDAT :CLEAR EXPECTED 
4269 Gi5370 BRESET :ISSUE SUS INIT 
3) 015370 104023 EMT CSRESET 
4276 015372 017737 164S2& cOe2e26 MOV JRLDA, BODAT ;READ RLDA 
3671 O1€409 901404 BEO 1s IF ELEAR BRANCH 
4273 oO1S402 ERROF 15..EM71,ERR2 ;WRONG DATA IN RLDA 
"32> O1S4C2 1o44ee TRAP  TSERCODE 
‘S: 015408 9006:7 . WORD is 
‘S, Oie4te 0762s EM71 


QUTERR Py hia 
DORLAR.PL1 
(S) 515410 
4274 QO1S4le 
Eee 
(3) Bieuis 
(3) O1S4ie 
427" 
427" 
427 
4280 
4281 O1S414 
4282 
et O1s4i4 
4294 
4285 
4E86 
48" 
42898 
wef O1s414 
ig) 
42930 
4291 
4232 015414 
#293 015422 
4294 015430 
$295 OlS436 
4296 
4297 
4298 
e939 015444 
43200 0154Se 
4301 
4302 G154S4 
4303 015462 
4304 
4305 9015470 
(3) 0154870 
‘$) O1547e 
‘3 O1s474 
(5) QO1S476é 
“306 015500 
‘3) 915500 
4307 
4398 015502 
4305 015510 
4310 
4311 Bizeis 
t3le 1sSe2e0 
4313 
4314 015526 
{33 ttekt 
($3 O1553 
£s 15532 
{‘§) QiSS34 
4315 OLcese 


105— 


0.1046) 30-OCT-77 16:51 PAGE 95-8 
O¢F-FF 15:41 #eTEST 16#* - BUS RESET OF RLDA 
007606 - .WORD ERR2 
ENDTST ;RRRSeEND CF TESTaeees 
L1O036: 
4001 EMT CSETST 
_SBTTL #*TEST 17*# - UNIQUENESS OF RLCS 
BGNTST ;##eaSTART OF TEST##e# 
STARS 
+ SERERRESRSSERAARSSAAASASLAAEALAHRARAAAAERALARELALAFRAAAABPAAFHF AHS 
test THE E UNIQUENESS OF THE CONT ROL AND STATUS 
:REGIST ER HE RLBA AND RLOA ARE PRELOADED WITH 
177776 BIND 177777 a3 PECTIVELY. THE RLC Is THEN 
LOADED TO INSURE NEITHER THE RLBA OR RLDA 
ies" ODIFIED RY THe WRITING OF THE RLCS. 
5 SSRAKRAAE RAS LS RAAELLEAELAELLELRELALLALELEREARALAFAKEARELALERELFSRSE 
012737 000201 002174 MOV #DRDY! CRDY,LOCSR ;SET DRIVE BND CONTROLLER READY 
Blo??? «1???76 «1BN47e2 MOV a 2, IRLBA :SET RLBA TO A "Ss 
Olev777 «177777 «164466 MOV 1’ dRLDA :SET RLDA TO ALL i: 5 
013777 002174 164454 MOV foeske aRLCS :WRITE RLCS 
:CHECK THAT RLBA REMAINED UNEFFECTED 
022777 177776 164450 CMP #-2, IRLBA ;RLBA OKAY? 
001412 BEG 1$ :YES, GO CHECK DA 
012737 177776 o02224 MOV #-2, GDDAT :SET up EXPECTED 
817737 164434 O022c6 MOV JRLBA, BDDAT :READ RLBA 
ERROF 16. ene, ERR2 ;:CS MODIFIED BA 
104462 TRAP TSERCO : 
o0c026 WORD 16 
07060 “WORD EM72 
7606 “WORD ERRE 
18: ¢KLOOP sCHECK IF -FL:LOE IS SET 
OYOCE EMT CSCLP1 
022777 177777 164414 CMP #-1, IRLDA ;RLDA OKAY? 
ooi4i2 BEG 2s :YES, CONTINUE 
012737 177777 oO0e2e4 MOV GDDAT ;SET_UP_ EXPECTED 
D17737 164400 GOecce MOV SRL bee BDDAT :READ DA 
ERROF 17.,£M73,ERR2 ;CS MODIFIED DA 
104462 TRAP TSERCODE 
o000e21 WORD 17 
O07 113 WORD £&M73 - 
O0760€ WORD  ERR2 


es: 


Jos 


at 
| | 
| QUTERR MACYL1 30(1046) 30-OCT-77 16:51 PAGE 85-9 
| SERLAA.P LL o5-ocT-77 10:41 #eTEST 17#% - UNIQUENESS OF RLCS SEG Ccoel | 
4316 . 
4317 
4318 915536 ENDTST ;##"4END OF TEST##e# 
(3) O15536 L10037: 
(3) 015536 104001 EMT CSETST 
3336 
4321 SBTTL ¥#*TEST 19%% - UNIQUENESS OF RLBA 
4323 O15540 BGNTST ;4"""START OF TEST#x«# 
4324 O15540 STAR 
(2) 3 REKRKKAHASAARASAAAHAARSRHRKAERARARASEARERSLRARKRAAAARKARAAARA SSAA KAALKRFLASES 
4325 '¢EST THE UNIQUENESS OF THE BUS ADDRESS REGISTER. THE 
4326 - PRLCS AND RLDA ARE LOADED WITH XXx20X AND 177 
4307 j RESPECTIVELY. THE RLBA IS THEN WRITTEN TO TNSURE 
4328 HAT NEITHER THE RLCS OR RLDA ARE MODIFIED 
4329 ay WRITING THE RLBA. 
4330 o15540 om ARS 
455) 5 REKAERARAS RARER ALARA H ARAL HARARE RA LAAAAA RRA ARRAKARAAALERER tree 
4332 
4333 D1S54O 012737 o00200 oo2224 MOV #CRDY , GDDAT ; CONTROLLER READY 
4334 015546 030777 O40000 164344 BIT #DERR; IRLCS :IF DRIVE ERROR IS 
4335 015554 001403 : BEQ 393 :SET THEN EXPECT IT 
43 O15556 052737 140000 op2224 BIS HERREDERR GDDAT :SET WHEN WE READ IT. 
433 15564 013777 OOe224 164326 99S: MOV GDDAT, ARLES ;LOAD RLCS 
4338 015572 012777 177777 164304 MOV a-1 DALBA :LOAD RLDA 
4339 015600 005077 164316 CLR aRLBA :CLEAR RLBA 
meats ;CHECK IF RLCS IS OKAY 
4343 015604 017737 164310 oO02226 MOV QRLCS, BDDAT ;READ RLCS 
4344 015612 042737 009001 OOecc6 BIC #OROY, BDDAT tTGHORE DRIVE READY 
4345 615620 023737 O02226 OCOecc4 CMP BODAT’ GDDAT CS 
43u6 015626 001404 BEQ 1$ YES, Ko CHECK DA 
4348 015630 ERRDF 18.,EM74,ERR2 ;BA MODIFIED CS 
(3) 15630 104462 TRAP TSERCODE 
(5) 015632 O00022 WORD 18 
(5) 015634 007146 "WORD EM74 
(5) 015636 007606 “WORD ERR2 
4349 015640 1S: CKLOOP sCHECK IF “FL:LOE IS SET 
me) 015640 104006 EMT CSCLP1 
4361 O1S642 022777 177777 164254 CMP #-1, 3RLDA ;IS RLDA OKAY? 
4363 o1s6S0 901412 BEQ 2s : IF OKAY BRANCH 
4355 O1st5e 012737 177777 oce2e4 MOV #-1,GDDAT ;SET up EXPECTED 
4258 O15660 017737 164240 Odeec6 MOV JRLOA, BDDAT :READ RLDA 
4355 015666 ERROF 19.,EM7S5,ERR2 ;8A MODIFIED DA 
(3) C1556 pO4NEe TRAP § TSERCODE 
(6; 015670 0023 WORD 19 
‘S; 15672 907200 "WORD EM?S 
‘5; O15€74 cOo7EcE "WORD ERR2 


| OUTERR 


MACY11 30( 1046) 
| OZRLAR.P11 0S-0cT-7 
| 
4359 018676 

4360 O1S676 | 
| (3) 015676 
(3) O1S67& 104001 
4361 
4362 
4363 
4364 
4365 015700 
4366 
4367 
4368 015700 
(2) 
4369 
4370 
4371 
437 
437 
4374 015700 
4375 
4338 15700 012737 
4378 piesBe 032777 
4379 015714 001403 
4380 015716 052737 
4381 015724 013777 
4382 015738 012777 
4383 015740 oO0S0 
4384 
4385 
4386 
4387 015744 017737 
4388 615752 042737 
4389 015260 023737 
43390 015766 001404 
4391 
4392 015770 
(3) 615770 1044 
‘S) 015772 oo00e4 
(S) 015774 007232 
(5) 015776 O0760€ 
4393 016000 
(23) 016000 104006 
4394 
4395 016002 022777 
4396 O16010 O014le 
4397 
4398 016012 012737 
4399 016020 017737 
4400 
4401 O16026 
(33 O16026 104462 
‘S) 016030 Od00025 
‘S$; 016032 007265 
‘S) 016034 oO7E06 
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177776 
164076 
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O0ececé: 


164112 


O0e224 
O02ecé 


KOS 


1&:51 PAGE 85-19 
#eTEST 18%# - UNIQUENESS OF RLBA 
es: 
ENDTST 
L10040: 
EMT CSETST 
.SBTTL #*TEST 198% - UNIQUENESS 
BGNTST 
STARS 


;##2HEND OF TEST#R4# 


OF RLDA 
;#eeeSTART OF TEST#H## 


REAKAAKARKKKLAAARAAA KARA KALA KARA HRLA LA ALARA RELARALELALSLELARAARELEAAES 


i tEST THE UNIQUENESS OF THE DISK 
;AND RLBA ARE LOADED WITH XXX20X 
;RESPECTIVELY. THE R 


ADDRESS REGISTER. THE RLCS 
a 777 


177776 
WRITTEN TO INSURE 


A IS THEN W 
:T NEITHER THE RLS OR THE RLBA ARE MODIFIED 
igy nuRET NG THE RLDA. 
5p RERRRRARARLER SEAS RARER ERLE RAR KELARLAAEKAAA AAA REARRELA LAA FLALARESE 
MOV #CRDY, GDDAT ; CONTROLLER READY 
BIT BDERR; JRLCS :IF DRIVE ERROR SET 
BEQ 995 :THEN EXPECT IT LATER 
BIS #ERR! DERR, GDDAT 
99S: MOV GDDAT, JRLES ;LOAD CS 
MOV 8-2 aRLBA ;LOAD WITH ALL 1°S 
CLR aRLOA ? CLEAR \RLDA 


;CHECK IF RLCS IS OKAY 
MOV @RLCS, BODAT 


BIC #ORDY ; BODAT 
CMP GDDAT’ BDDAT 
BEO 1$ 
ERROF 20.,E76,ERR2 
TRAP TSERCODE’ 
-WORD 20 
‘WORD EM76 
.WORD ERR2 

1S: €KLOOP 
EMT CSCLP1 
CMP #-2, RLBA 
BEQ 2S 
MOV 2, GDDAT 


MOV SA ea BDDAT 


ERROF 2 . ,EM77, ERR2 
TRAP SERCODE 

. WORD 

-WORD  £&M77 

-WORD ERR2 


;READ RLCS 

; IGNORE ORIVE READY 
;RLCS OKAY? 

:YES, THEN BRANCH 


;DA MODIFIED CS 


;CHECK IF /FL:LOE IS SET 
:IS RLBA_ OKAY? 
;BRANCH IF OKAY 


sRet Us EXPECTED 
;READ RLBA 


;DA MODIFIED BA 


—— | 


SES CO&2 





ie ara | 


| LOS 
| QUTERR MACY11 30(1046) 30-OCT-77 16:51 PAGE 85-11 
| DERLAA.PL1 05-0CT-77 10:41 #eTEST 19%% - UNIQUENESS OF RLDA SEG O0e3 
| 44 016036 2S: 
' 440 -~ -« oe 
4404 
4405 016036 ENDTST ;#H#2HEND OF TEST#RS® 
(3) O16036 L10041: 
mt} 16036 104001 EMT CSETST 
44 z .SBTTL #**TEST 20**-- UNIQUENESS OF RLMP 
4303 016040 BGNTST ;##*"START OF TEST##** 
4411 
4412 O16040 STARS 
2) « SRESEKRSKRRAAKRAKRESSAAAKAEREAAAERAAAAKRAAAALAAAAAAALRAAAAAAALKEAAAAAELSHS 
4413 +EST THE UN QUENESS OF THE MULTI-PURPOSE. REGISTER 
4414 EW WILL W WRITE THE LCS, RLBA A, THEN THE 
4415 WRT TEN THEN GO Back. AN SERIFY’ THE CONTENTS 
4416 Be ntHe sate aan® RLDAS 
4417 O1604C Th 
wite Se PDAUEHHEGHEESEEESEDEAEORESENSEERSEDESERESESOEEOSORSCERDOREESS 
4419 
4420 O16040 012737 000200 o02224 MOV #CRDY , GDDAT ;CONTROLLER READY 
4421 O16046 032777 O40000 164044 BIT SDERR, JRLCS i TF DRIVE ERROR SET 
4422 016054 00140 BEQ HE EXPECT IT LATER 
4423 016056 052737 140000 o02224 BIS HERR! DERR GDDAT 
4424 O16064 013777 OO2224 164026 99S: MOV GDDAT, ARLES ;LOAD CS 
4425 016072 012777 177776 164Oee MOV 8-2, DABS }COAD BA_WITH ALL 1°S 
4426 016100 012777 177777 164016 MOV 8-1 LDA ?LOAD_RLDA 
wig? 016106 005077 164014 CLR aRLAP ;WRITE RUMP 
W329 ;CHECK IF RLCS IS OKAY 
4431 0616112 017737 164002 o02226 MOV JRLCS, BDDAT ;READ RLCS 
S433 DIEIBe b25737 posesd BOSSSE Bis BBRRY, BORAT HTENORE SRIvE re es 
a433 016134 Bias BEG rt ?YES, THEN BRANCH 
4436 016136 ERRDF 201.,EM44,ERR2 ;MP MODIFIED CS 
(3) 016136 462 TRAP  TSERCODE 
(5) 016140 o00311 WORD 201 
(5) 016142 065601 [WORD EM44 
(5) O16144 606 “WORD ERR2 
4437 016146 1$: CKLOOP ;CHECK IF /FL:LOE IS SET 
433 16146 104006 EMT CSCLP1 
4439 016150 022777 177776 162744 CMP #-2, JRLBA ;I1S RLBA OKAY? 
4440 016156 OO1412 BEG 2s :BRANCH IF OKAY 
4442 O16160 012737 177776 o02224 MOV 8-2, GDDAT ;SET up EXPECTED 
a3 016166 017737 163730 OO2ece MOV JRLBA, BDDAT :READ RLBA 
4445 016174 RROF 211. EM4YS,ERR2 ;MP MODIFIED BA 
(3) O16174 104462 RAP SERCODE 
(5) Giei7e 600323 WORD ell 
(S) O162c05 ooses4 “WORD = EMYS 





| QOUTERR 
| DORLAA. 





Pil 

007606 
104006 
Oee?777 
001412 


17737 
12737 


o 
fu 


S2ue Lo ae 


104462 


be 
be 
es 
es 
62 
be 
be 
be 
62 


Lt 
Oo 
oO 
oO 
“I 
o 
a 


104001 


005737 
001410 


004537 
600000 
004537 


104006 
004537 


104001 





177777 


1637 
17777 


O0eese 


O1esse 
013362 


Oleese 


163710 


002226 
O9e2ee4 





MOS 


#TEST 20%8 - UNIQUENESS OF RLMP 


mMaACY11 Pt 83 e ) seal -OCT-77 16: $1 PAGE 85-12 


.WORD. ERR2 
2$: Ext OOP sCHECK IF /FL:LOE IS SET 
M CSCLP1 
CMP 8-1, JRLOA sDISK ADDRESS OKAY 
BEQ 3$ :YES, CONTINUE 
MOV JRLDA, BODAT ;SET UP BAD 
MOV #-1, GDDAT :SET UP EXPECTED 
ERROF 212. EM46,ERR2 ;MP MODIFIED DA 
RAP SERCODE 
WORD ele 
RD EM46 
WORD ERRe 
38: 
ENOTST ;##22END OF TEST#ee# 
L1004e: 
EMT CSETST 
.SBTTL #*TEST 21%* - NOOP FUNCTION(RL11 ONLY) 
BGNTST ;#eeeSTART OF TEST#H## 


TARS 
5 errrrrTrTrrTreT TTT TTT TTT ttt ti tt tit tt it itt itt titi titi iii eee SS SS 
test eNO UATY WILL FUNCT Guten ney WILL 1S SSUE THE 


: AND 
:TIMEOUT OF 200 BILL ISeC ALLOWED. BRIVE 0 IS ALWAYS 
aFaes, ED SINCE T Bie i RT NECESSARY. 


5 ERE ERE ARE EERE EERE REE E AREER RRE LEELA ARALA RE 


TST T.CNTLR ;RLV117? 

BEQ 99$ ;YES SKIP TEST 

JSR RS, LDFUNC ; ISSUE ee OF FOLLOWING WORD 

NOOPO i NOO my 

R RS,WTCRDY OR CONTROLLER READY HIGH 

es: CKLOOP + HECK IF /FL:LOE IS SET 

EMT CSCLP1 

JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
993: 
ENDTST ;#***HEND OF TEST##R® 
L10043: 

EMT CSETST 





Be NOS 


MACY11 gO, 0N6) ra 16:51 _PAGE 85-13 


OUTERR 
BORLA. P11 05-0¢ 1 TEST 22%% - TEST NOOP DOES NOTHING SEG ocESs 
448 .SBTTL #**TEST 22%% - TEST NOOP DOES NOTHING 
aaa 016274 BGNTST ;*#HRHSTART OF TEST#4H® 
4493 016274 STARS 
(2) 3% RKARARERARARAEKRAAAA LAE ASA AKARAKLAAAAAAAREARARARAARAARAERAAKAARKRAAKEKEE 
44gy s TEST THAT ISSUING A NOOP FUNCTION DOES NOTHING. THIS IS DONE BY WRITING 
4ags i eae iTHE ALBA, AND RLDA, READING THE RLMP AND MAKING SURE NOTHING CHANGES. 
wy > ons fp RRR RRR EERE E ERE EERE RARER ARR EARL RARE RRAAEL RAE RAKES 
4498 016274 005737 oO02252 TST T.CNTLR ;RLV11?? 
4398 016300 001476 BEQ 3$ 
4501 016302 012777 OO0001 163614 MOV #1,9RLDA sLOAD DISK ADDRESS 
4e0e 016316 O1e777 o0000¢ 163604 MOV se aRLBA :LOAD BUS ADDRESS 
4504 biesee 903925 163600 002224 MOV ORLMP , GDDAT ;READ RLMP | 
450 016330 904537 o12ss2 JsR RS, LDFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
WEDS Blesae oe” (019362 OTE meager: iWnECK IF SPLICE Ie Ser OM 
mel 016342 104006 EMT CSCLP1 . 5 
4511 016344 004537 2 ISR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
we1e 016350 a ene ESCAPE ): : ae :IF /FL:LOE SET LOOP, ELSE EXIT TST 
wh? 016352 o00124 -WORD L1G054-. 
4514 016354 017737 162546 o02226 MOV ORLMP , BDDAT ;READ RLMP 
4515 Ol6362 023737 OO02224 OOecce CMP GDDAT; BDDAT *RLMP OK? 
4518 016370 001404 BEQ 1$ 
4518 016372 ERRDF 202. ,EM14,ERR2 
(3) 016372 104462 TRAP TSERCODE 
‘5) 016374 o0031e WORD e202 
(5) 016376 OO4741 “WORD EMIY 
mst) 016400 007606 WORD ERR2 
4520 016402 1S: CKLOOP ;CHECK IF /FL:LOE IS SET 
med O1E402 104006 EMT CSCLP1 
452 16404 012737 oOD0002 oD2224 MOV #2, GDDAT ;SET UP EXP’D BA 
W255 rae 017737 163504 O0e2c6 MOV aRLBA, BDDAT ?READ BA 
4524 016420 023737 O02224 OOecc6 CMP GDDAT;? BODAT :BA OK? 
dees 016426 001404 BEQ eg :YES 
4527 016430 ERROF 203. ,EM1S,ERR2 
(3) O16430 104462 TRAP TSERCODE 
(5) 016432 000213 .WORD e203 
(5) 616434 004767 ‘WORD EMIS 
32 016436 007606 "WORD ERR2 
4529 016440 2S: CKLOOP sCHECK IF /FL:LOE IS SET 
(3) OlE44O 104006 EMT CSCLP1 


OUTERR MACY11 30( 1046 
DZRLAA.PL1 oS-0CT-7 
| 4530 
4531 pions 012737 
4S32 164S 017737 
4533 Riot 023737 
4534 16464 001404 
4S3S 
4536 O16466 
(3) 016466 104462 
(5) Ribice erattagt 
(S) 16472 cSo1s 
(S)} O16474 00760 
4537 
4538 016476 
4539 
4540 016476 
(3) 016476 
(3: O164%76 104001 
4S41 
4syo 
4543 
: ybuq 
| 4545 o1esco 
4546 
4547 616500 
(2) 
4548 
4S49 
4550 
4551 
45S2 
4553 
4SS4 
4ScS 
4556 
45S7 016500 
(2) 
4558 
4csg 
4560 O16500 005737 
Wee) O165C4 001426 
4563 016506 005037 
4564 16512 
(3) O1651l2 012700 
(3) 016516 104041 
4565S 016520 004537 
4S66 616524 000100 
4667 016Se6 004537 
4568 016532 S737 
4569 Q016536 001004 
4570 016540 
(3) Ol16S4O 104462 
(5) O1654e OO00e6 
(S$) O16544 004707 
‘S) O16S46 OO7SS56 
4571 OQi6550 005037 





30-OCT-77 16:51 PAGE 85-14 
10:41 #¥TEST 228% - TEST NOOP DOES NOTHING SEG COEE 
00009: oo2224 MOV #1, GODAT ;SET UP EXP*D DA 
163450 002226 MOV aRLDA, BODAT READ DA 
002224 O0e226 CMP GDDAT ; BODAT ‘DA OKAY 
BEQ 3$ 
RROF 204.,EM16,ERRe 
RAP TSERCODE 
WORD 204 
“WORD EMIS 
WORD ERR2 
3S: 
ENDTST ;#RHHEND OF TEST ##H% 
L1CO44: 
EMT CSETST 
.SBTTL #**TEST 23%% - TEST OF INTERRUPT 
BGNTST ;##2"START OF TEST##¥% 
STARS 
= RERKKEREKKRKEKSS REEL LAAKERRRKARRERERERRRARLSRRRARRARKAAE LAA KRAKS 
AHECK THE INTERRUPT WITH Hee NOOP. WE WILL SET UP TH 
: INTERRUPT VECTOR, LOWER THE PSW TO ZERO AND ISSUE 
$A NOOP. THE INT NTER’ BRUPT Ss RV ICE ROUTIN WILE SET A 
:FLAG UPON INTERRUPT N LI WAIT 200 MILLISECONDS 
s LOOKING FOR THAT FLA CN One ae BEFORE E CALLING IT 
RROR. IF THE SNTERRUP SENDS U US TO ANOTHER 
VECTOR ADDRESS THEN THE ERROR ANDLER WILL REPORT 
“TRAP TO XXXX FROM YYYY" AND e TU TO DIAG SUP MONITOR. IF THE 
efiae SEs TO ABOVE 1900 WHO KNOWS WHAT WILL HAPPEN 
5 RRKRRERRAEASRRARRARRAAAR ALLEL AERA LLL AL LEARA ALARA ERELELA ELLER EL REFAEE 
on2252 TST T.CNTLR 
BEQ 99$ 
002172 CLR INTFLG ;CLEAR INTERRUPT OCCRUANCE FLAG 
SETPRI #PRIOO :SET PSW TO O 
oo0000 Hoy aPR100, ,RO 
o12sse2 ISR RS, LDFUNC ; ISSUE FUNCTION OF {FOLLOWING WORD 
NOOPO! INTEN :NOOP AND INTERRUPT ENABLE 
013362 JSR RS WTCRDY ‘WAIT FOR CONTROLLER READY HIGH 
002172 TST TFLG :DID INTERRUPT OCCUR 
NE :IF SO BRANCH 
ERROF 2. .£M13,ERRO 
TRAP $SERCODE 
WORD 22 
‘WORD EM13 
“WORD ERRO 
002172 2s: CLR INTFLG 


OUTERR _MACY11 30/1046 
DZRLAA.PLL -0CT-? 
W572 016554 
(3) 216554 104008 
4B23 016556 00453 
¢ 
4575 
¥576 016562 
4577 016562 
(2) 16562 
widg 016562 104001 
457 
4580 
4581 
4582 O16S64 
4583 
4584 O16564 
(2) 
4585 
4586 
4587 
4588 16564 
(2) 
4589 
4590 O16S64 005737 
4591 016570 001456 
4592 
4593 016572 012737 
4594 016600 013737 
4595 
4596 016606 
(3) O16606 104004 
4597 
4698 016610 005037 
4599 016614 
(3) O16614 013700 
(3) O16620 104041 
4600 
4601 016622 004537 
4602 016626 O00100 
4604 916630 004537 
4605 O16634 
(2) 16634 104010 
(3) 016636 000070 
4E0E 
4607 O16E40 004537 
4608 16644 
(3) O16644 104010 
(3) O16646 00060 
4605 —. 
4610 O16650 023737 
4612 O166S6 02012 
4612 OlEEED 005727 
4613 CiGEE4 01004 


;CHECK IF /FL:LOE IS SET 
;CHECK CONTROLLER FOR ERRORS 


;*#**#*#END OF TEST ##e% 


;##ESTART OF TEST#RE* 


+ SLELELEELELAASALALA BARA RERAALAAAEAAAA ARR LAARAAAEAAELLAARERELALEAS 


WE — 
START TRYING TO INTERRUPT AT 7 


p SRAAAAARASAAAREAAARARARAESLAALLLARELAAALALALALELAAAALLRAAEKERAARERE 


;RLV11 : 
; YES, SkIP TEST 


;SET UP INITIAL OF 7 
:GET GIVEN PRIORITY 


;#*##2START OF SEGMENT # #4 


s CLEAR Po OCCURRANCE 
;SET PRIOR 


; ISSUE FUNCTION OF FOLLOWING WORD 


;WATT FOR CONTROLLER READY HIGH 
;IF /FL:LOE SET LOOP, ELSE EXIT TST 


; CHECK tae a ee ERRORS 


;IF /FL:LOE SET ELSE EXIT TST 


;SHOULD IT INTERRUPT 
BRANCH 


) 30-OCT-77 16:51 PAGE 85-15 
7 10:41 ##TEST 23%% - TEST OF INTERRUPT 
CkLOOP 
M CSCLPI 
012252 SR RS, CHERR 
993: 
ENOTST 
L1004S: 
EMT CSETST 
.SBTTL ##TEST 24ee - TEST PRIORITY SR LEVEL 
BGNTST 
STARS 
ttesT THAT PRIORITY GIVEN IS ACTUAL PRIORITY OF CONTROLLER. 
;THE BOARD WILL INTERR WIL 
aFae WORK DOWN TIL IT bOES INTERRU fT. 
o022se TST T.CNTLR 
BEQ 6S 
000340 902226 MOV #340, BDDAT 
902132 o0e224 MOV BPRIOR, GDDAT 
BGNSEG 
EMT CS$BSEG 
002172 S$: CLR INTELG 
SETPRI 
002226 MOV BpbRT RO 
EMT sprit 
O12ss2 JSR RS, LOFUNC 
NOOPO! INTEN 
012362 JSR RS ,WTCRDY 
EScaPpe TSt 
EMT CSESCAPE 
-WORD L190%6- 
Ci2ese JSR RS, CHERR 
ESCAPE St 
MT CSESCAPE 
-WORD LIOO46-. 
002226 002224 CMP BDDAT, GDDAT 
BGE i$ :NO, 
002172 TST INTFLG 
BNE 2g ; YES, 


;010 INTERRUPT OCCUR 
€S, Ok 


came mreas 


SES 0067 


a 


OUTERR MACYLI 30; 1048) 
DERLAA.PLL 05-0CT-77 
4616 O16666 
(3) C1 6666 O44b2 
(5) 016670 031 
(5) 016672 o005043 
wit? 016674 015044 
4618 016676 
(3) O166 104010 
| (3) 0167 goo 14 
| 4619 0167 600405 
a 016704 005737 
| sess 016710 001772 
| 4682 O16712 000765 
4623 
| 46284 016714 
(3) O16714 
(3) O18714 104095 
4625 016716 162727 
4626 016724 190331 
4627 
| 4628 Ole726 
9629 O16726 
(3) Ole7ee 
(3) 6016726 104001 
| 4630 
4631 
| E35 
4633 016730 
4634 
| S€3€ 016730 
¢ 
| ay 
| 4657 
; >. * 
| 4639 
| 46450 
a 
“ss 16730 
,Ee) 
4643 
Ae ey 
4645 016730 012777 
4646 016736 004527 
4647 016742 900004 
4648 O1E744 004537 
4645 016750 
(3) 16750 10400e 
4650 
4651 016752 004537 
j 4652 
| 4653 OlE7SE 
(3) Q16756 
| (3; C1675 104001 
SE54 
4655 
4EE5€ 
| 
| 
j 
i 


ea — — 


DO6 


30-OCT-77 16:51 PAGE 85-16 
10:41 #eTEST 24ee - TEST PRIORITY BR LEVEL SEG CO&sS 
3$: ERRDOF 204. ail 
TRAP TSERCOD 
-WORD 204% 
. WORD EM17 
WORD ERR? 
es: gS APE age ;IF /FL:LOE SET LOOP, ELSE EXIT SEG 
M CSESCAPE 
— — 
002172 1$: TST INTFLG ;DID INTERRUPT OCCUR 
BEG 2s 7NO, Ok 
BR 3$ : YES, ERROR 
ENODSEG ;#*#22END OF SEGMENT##44 
10000$: 
EMT CSESEG 
ococso O0ee2e& YS: SUB #40, BDODAT ;NEXT LEVEL 
BPL S$ 
6$: 
ENOTST ;##*22END OF TEST Hae 
LIOO4E: 
EMT CSETST 
-SBTTL ##TEST 25%* - GET STATUS FUNCTION 
BGNTST ;##2eSTART OF TEST#ee# 
te 


960013 
OlesSe 


013362 


Ole2sSe 


163166 


a ae a me arg See ros hen A tite 
T_ STATUS FUNCTION. piREAGY " ys 1» THE ALOR 


Peat HE FUNCT 
iF OR_CONTROLLE OREABY. > VERIFY THAT NO ERRORS OCCUR. 


TAR 
s 5 HESKARALAAA LAER LALA LAEAASLALALLLLALLESLELALRARLARARERAAAKRARLLAREE 
MOV sGSBIT!MK!DRST,aRLDA ;SET GET STATUS AND MARKER BIT 
JSR RS, LDFUNC ids TEUNETION OF FOLLOWING WORD 
JSR RS,WTCRDY :WAIT FOR CONTROLLER READY HIGH 
2s: CKLOOP :CHECK IF “FL:LOE IS SET 
EMT CSCLP1 
ISR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
ENOTST ;#e#2END OF TEST##2# 
L10047: 
EMT CSETST 


{ 
| 
-SETTL ##TEST 26#* - GET STATUS FUNCTION INTERRUPT 


Se — _ + 


E06 | 
30-OCT-77 16:51, PAGE 95-17 


 OUTERR MACY11 30(1046) 
T-? 41 #eTEST 262% - GET STATUS FUNCTION INTERRUPT : ceo cCES 


| DERLAA.P11 o0S-0c 


4657 
dos 016760 BGNTST ;###"START OF TEST#### 
wee0 ;CHECK GET STATUS UNDER INTERRUPT 
4662 
4663 016760 005037 002172 CLR INTFLG ;CLEAR_ INTERRUPT OCCURANCE 
4664 016764 SETPRI #PRIOO ;PSW TO LEVEL O 
(3) 016764 012700 ocD0000 MOV #PR100, RO 
(3) 016770 10404 EMT PRT 
4665 01677 12777 G20003 163124 MOV Seca! 'MK,9RLDA ;SET UP_DA 
4666 017000 O04S37 012552 JSR RS LOFUNC’ ; ISSUE FUNCTION. OF FOLLOWING WORD 
4667 617008 000104 GSTAT!IN NTEA T STATUS, INT ENABL 
4668 017006 004937 013362 JSR RS ,WTCRDY iWAIT FOR CONTROLLER READY HIGH 
4669 017012 SETPRI #PRIO7 
(3) Q1701e 012700 000346 MOV #PRI07,RO 
(3) 017016 104041 r EMT CSSPRI 
4670 017020 005737 O02172 TST INTFLG ;D1D INTERRUPT OCCUR 
4671 017024 001004 B es ; YES-BRANCH 
4é7e 017026 ERRDF  28.,—M30,ERRO 
(3) O17026 104462 TRA TSERCODE’ 
‘$) 017030 o00034 -WORD 28 ea eo 
(S$) 017032 905076 -WORD  £M30 ——e 
(5) 017034 OO7556 .WORD  ERRO 
4673 017036 2S: CKLGOP :CHECK IF /FL:LOE IS SET 
mE) 017036 104006 EMT CSCLP1 
4675 017040 004537 oO12252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
4677 017044 ENDTST ;X*#22END OF TEST HHH 
(3) O17044 L10050: 
(3) 9617044 104001 EMT CSETST 
4E75 
4680 .SBTTL ##TEST 27%*% - GET STATUS FUNCTION GENERATES OPI W/O GS BIT 
de8e O17046 BGNTST ;##HSTART OF TEST##%# 
4684 O1704E STARS 
(2) peaseveeuat Gry STATUS PUNCTION MILL MOT COMPLETE, 
mage :YERIFY THAT GET STATUS FUNCTION WILL NOT COMPLETE 
4686 ‘WITHOUT SENDING out THE GET STATU BIT IN THE RLDA. 
4697 j WE SET MARKER BUT NO GET STATUS BIT IN THE RLDA AND 
4688 : ISSUE A_GET STATUS WE SHOULD RECIEVE AN OPI ERROR 
4689 :VERIFY THAT CONTROLLER READY SETS AND OPI SETS 
4690 017046 ats TARS 
ueG? 5 RARER RRRE EERE RE ERA R ERA E REEL RE RARE RE RRL RARE REAR RKAARAERES 
4692 
4693 017 012777 000001 163050 MOV #MK, JRLDA ;SET ONLY MARKER SIT?! 
mee 617054 bO4537 012552 jor RS, LOFUNC s A39UE FF FUNCTION OF FOLLOWING WORD 
4696 O1706e 004537 013362 JSR RS,WTCRDY ;WAIT FOR” ZONTROLLER READY HIGH 
4697 017066 032727 O74000 oD21S2 BIT #74000;E.CS 
4698 017074 OO140S 8 i$’ 
4699 017076 012737 on3sio o1es34 MOV #OPIERR,RESTMS 





OUTERR MACY 
DIRLAR.Pil 
| 4700 O17104 
4701 017110 
(3) 917110 
| 472 917112 
4703 Bigies 
| 4704 O17122 
} i3) Ol7l2e 
(2) Bisise 60 
(2) B15156 
4705 017132 
4706 
4707 017132 
(3) 017132 
<3) O1713e 
4708 
4709 
4710 
4711 
47le 017134 
S713 O17134 
(2) 
4714 
4715 
4716 
4717 
$718 O17134 
(2) 
47159 
4720 
47el 017134 
(3) 017134 
£3) 017140 
4722 O17142 
4723 O17146 
4724 O171S54 
4725 017160 
4726 017162 
4727 017166 
(2) O!7166 
(3) 917172 
4728 017174 
4729 017200 
4730 
4731 017202 
(3) O1720e 
(S$) 917204 
(53 017206 
(S) 017210 
4732. 
4733 017212 
(33 Q917ele 
4734 
4735 017214 
4736 O172c2 
4737 017224 


annem 
' 


1 30( 


004537 


1046) 
= oe tase ‘ 


10400: - 


FO6 


20. ‘ital 16:51 PAGE 85-18 
10:4 R&TEST 274% - GET STATUS FUNCTION GENERATES OPI W’O SS BIT SES 8070 
012252 JSR RS, CHERR 
1$: CKLOOP 
EMT CSCLP1 
oo2000 002152 BIT #OPI,E.CcS 
BNE es 
ERROF TseRe EM33,ERRO 
TRAP RCODE 
WORD 
WORD Ex 33 
. WORD ERRO 
2s: 
ENOTST :*#*#R2REND OF TESTH### 
L10051: 
EMT CSETST 
.SBTTL ##TEST 282% - OPI UNDER INTERRUPT 
STARS. ;#*#2eSTART OF TEST###% 


900000 
002172 
000001 
OlesSe 
013362 
000340 


002172 


162750 


o74000 o0e152 
003510 012534 


eee aon inten Inti te aa 


‘FORCE AN OP 


A 
3U 


N AT 
SING 


IN oa. 
STARS 


fp PERERA RERE AREA ARLE LARA LLL LERE LALA ALLA LALA LE LL ARAELRAKEFAAKSS 


es: 


SETPRI 
M 


SETPRI 
M 


CKLOOP 
EMT 


BIT 
BEQ 
MOV 


te UNDER siteeaey ta TO VERIFY T 


WILL OCCU 


#PRIOO 
#PR 


WTCRDY 


CSCLP1 
ee tc0.£.8 
sOPIERR,RESTMS 


M OPI. THE 
T STATUS WITHOUT THE GET STATUS BIT SET 


OPT IS FORCED 


;SET ONLY MARKER BIT 
; ISSUE FUNCTION O FOLLOWING WORD 


S 
WAIT FOR CONTROLLER READY HIGH 


; INTERRUPT OCCUR 


;CHECK IF “FL:LOE IS SET 


! 
:18 OPI SET? 
3 YES-BRANCH NO-CHECK TIMEOUT 

j 


a a AS SS 


UTERR MACYL1 30; 1046 
BeRLAA.P ga Pie 


893998. 
001004 


094537 
900019 
004537 


104006 
004537 


194001 


20-OCT-77 16:51 


10:41 
012252 


002000 O00e1Se 


di2ecse 
0i3362 


Ol22Se 


1S: 


3$: 


ENOTST 


L100Se: 


. SBTTL 


BGNTST 
STA RS 


PAGE 85-19 
#2 TEST 28%8 - OPI UNDER INTERRUPT 


EMT 


RS, CHERR 


CSETST 


GO6 


sIS OP] SET? 
; YES-BRANCH NO-CHECk TIMEOUT 


;##22END OF TEST#44% 


ReTEST 29%# - READ HEADER FUNCTION 


;#*#2"eSTART OF TEST#ae# 


Lae ek THAT READ IEPOER OG IMATE CA Ice 
: CHECK THAT READ HEADE 


if ARS 


R WORK 
GET READY BACK WITHOU 


T WE CAN_ISSUE 


T Bay PRRORE SETTING. 


5 EEAERELAAERAAAAERALEALLAEAALRELREAE LALA LLALLAERLLERAERERERFLALERFS 


es: 


ENOTST 


Li00S3: 


JSR 
RDHOR 
JSR 
CKLOOP 
EMT 
JSR 


EMT 


RS, LDFUNC 
RS,WTCROY 


CSCLP1 
RS, CHERR 


CSETST 


UE FUNCTION OF FOLLOWING WORD 
© inn CONTROLLER READY HIGH 
CK IF /“FL:LOE IS SET 


—DwW 
a0 


S 
E 
al 
E 


8 


il 
:R 
iW 
:R 
:CH 


m 


;CHECK CONTROLLER FOR ERRORS 
,#*eeeEND OF TEST #e4%2 








16:51 


PAGE 


HO6 


6 
#eTEST 29%8 - READ HEADER FUNCTION 


~“& LaR.Pl oc -"7 
rane | 
4775 
4773 0137304 
47g 
4775 017304 
<2) 
>>> 
i qre 017304 
4559 
| 42g 
| 4781 017304 
(3) 017304 012700 
hk} 912310 AoNONR 
| 4782 O1731e 005037 
| 4783 017316 004537 
| 784 Q173e2 900110 
| $785 017384 004637 
4786 BiZeeg 
| (3) 01733 012700 
88h 912384 sosONL 
| 4787 «017336 0573 
| 4788 O1734e eae 
| $789 017344 
(3) O17344 1044—2 
(S$) 017346 000043 
2) 912350 005213 
<6) Q17352 oO75S6 
4780 017354 
3) 017354 104006 


000000 


002172 
Olesse 


013362 
00334C 
002i72 


16: 5! PAGE 87 


106 


TEST 30#% - READ HEADER FUNCTION INTERRUPT 
-SBTTL ##TEST 3088 - READ HEADER FUNCTION INTERRUPT 


BGNTST 
STARS 


;*##RaSTART OF TEST aoe 


- LEEEEEES ARREARS SEAL REL RAE RAL ALERLERAERARE RSLS ESSE SES SEER EEE E EES 
SCHECK T THAT READ HEADER WILL GENERATE AN INTERRRUPT 


,UPON COMPLETION WITHOUT ANY ERRORS SETTING 


s LREREEKERSLAAS LAL ELA ARA RAE SLA LL AS LERLALL ARLE LA LALEAS FRA ELL SAAS 


: 
SETPRI HPRIO0 
MOV PRIOO, RO 
EMT esse RI’ 
CLR INTFLG 
ISR RS LBFUNC 
RDHOR! INTEN 
JSR RS,WICRDY 
SETPRI uPRIO? 
MOV PRIO7,RO 
EMT CSSPRI 
TST INT FLG 
BNE 
ERROF 3 EM37, ERRO 
TRAP TSERCO 
. WORD 
> WORD Ena? 
“WORD ERRO 

2$: _ CKLOOP 
EMT CSCLP1 


on,’ OCCURANCE 
AB ION of FOLLOWING WOSD 


DER, INT A 
ER ATROLLER READY HIGH 


; INTERRUPT HAPPEN 
; YES-CONTINUE 


;CHECK IF -FL:LOE IS SET 


JO6 


| OUTERR MACY1LI1 gOc10N8) ro ee 16:51 PAGE 88 






| 
_“OSRLAA.PLL os-o0c T-77 10:4 *#eTEST 30%*% - READ HEADER FUNCTION INTERRUPT SEG cc74 
| «4? | 
4233 017356 004S37 o12252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
| 4795 017362 ENDTST ;#£*KEND OF TEST#### | 
(3) 017362 L10054: 
(3) O17362 104001 ‘ EMT CSETST 
423 
4298 - (SBTTL #e#TEST 31** - REPEATED RD HDRS YIELD SAME CYL AND HO 
4890 017364 BGNTST , ;##£"START OF TEST###« 
4852 | 
4803 017364 STARS 
(2; ; psecageguassesnquesesseoene at tant tae ha ae 
4804 AHECKT THAT READ HEADERS WILL RELIABLY READ THE SAME 
4805 5 CYLINDER AND. HEAD SELEC ECT. WE WILL READ HEADERS VERIFYING 
4e08 comeeed ith HAT WE ALWAYS READ THE SAME CYLINDER AND HEAD SELECT 
wate $ H WUPTETUTTTTCITITTTTTT TIT TT TT TT TT Ttt ttt tei eet iit iit irri ities. 
4809 
4810 017364 012701 000144 MOV #100. ,R1 ;SET UP_TO DO 100 RD HOR’S 
4811 017370 004537 012552 JSR RS, LDFUNC : ISSUE FUNCTION OF FOLLOWING WORD 
4812 017374 o00019 RDHDR :READ HEADER 
4813 017376 004537 013362 JSR RS, WTCRDY :WAIT FOR CONTROLLER READY HIGH = 
4814 017402 99S: EScape TSt :IF /FL:LOE SET LOOP, ELSE EXIT TST 
(3) 017402 104010 _ EMT CSESCAPE 
wgie 017404 od00l2e -WORD L1005S-. 
4816 017406 O004S327 G12252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
4817 O17412 ESCAPE TST :IF /FL:LOE SET LOOP, ELSE EXIT TST 
(3) O17412 104010 EMT CSESCAPE 
aie 617414 O001le -WORD L10055-. 
48139 O17416 013737 OO02160 o02224 MOV E.MP, GDDAT ;READ FIRST HEADER (ASSUME GOOD) 
4820 017424 043737 O02176 OOecc4 BIC SECMSK, GDDAT ?MASK AWAY SECTOR BIT 
4821 017432 BGNSEG :#4£%*S TART OF SEGMENT #ane 
(3) O17432 104004 7 EMT CSBSEG 
4822 017434 2s: 
4823 017434 O04S37 Ol2ssz2 ISR RS, LOFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
4824 017440 990010 ROHDR 
4825 O17442 004537 013362 JSR RS, WICRDY ;WAIT FOR CONTROLLER READY HIGH 
4826 C1744 97S: ESCAPE SEG :IF /FL:LOE SET LOOP, ELSE EXIT SEG 
(3) O17446 104010 EMT CSESCAPE 
ui 0174Ss0 oooos4 “WORD i0000S-. 
4828 O174S2 O04S37 012252 ISR RS CHERR ;CHECK CONTROLLER FOR ERRORS 
4829 O17456 ESCAPE SEG :IF /FL:LOE SET LOOP, ELSE EXIT SEG 
(3) 617456 104010 EMT cs SCAPE 
wid 617469 oc0044 - WORD 0000S-. 
4831 017462 013737 o02160 oo2e2E MOV E.MP,BDDAT ;READ HEADER 
4832 017470 043737 002176 OOeece BIC SECMSK BODAT :MASK AWAY SECTOR BITS 
4833 017476 023737 O0e224 O0e226 CMP T, BDDAT :IS HEADER CORRECT 
4834 917594 601404 BEG aS. 





ee ee - - On 


et i es tte ett tc CCC CCC CCl LLL LL LLL LLL LL LLL LLL LLL LLL LLL LL LL LLL LLL LLL ' 
sasienspuninaiibcaccmimcaeiasctaiiieagi 


QUTERR .MACY11 30°104G) 
¢ 


| DERLAA.P 05-0¢ 0:4 *#TEST 31%% - REPEATED RD HORS YIELD SAME CYL AND HO 
| _yg3s . 
' 4836 017506 ERROF ENYL, ERRY 
(3) 017506 104462 TRAP SEAEO 
(5) 3127810 000044 . WORD 
‘S) O17512 005353 “WORD EMY1 
(5) 917514 772 WOR ERRY 
4837 sCONSTANT CYL & HS 
4838 017516 4$: CKLOOP ‘CHECK IF /FL:LOE IS SET 
wg 017516 104006 EMT CSCLP1 
4840 017520 005301 DEC R1 ; PERFORM ALL READ HDR’S 
4841 017522 001344 BNE es - tIF NOT GO BACK AND DO S ANOTHER 
4842 017524 ENDSEG :##**END OF SEGMENT### 
(3) 017524 10000$: 
(3) 017524 104005 EMT CSESEG 
4843 017526 ENDTST ;##**END OF TEST###% 
(3) 017526 L10055: 
(3) O17526 104001 EMT . CSETST 
deus 
ue4e .SBTTL ##TEST 32% - CHECK OF HEADER CRC 
4eu8 0175230 BGNTST : ; "START OF TEST HHH 
4850 017530 STARS 
(2) 8 s REBELS RRARARK AERA SERRA RSARAREAKAAKARHAARAAAAARAAAAAARAAARAESELE 
4851  AHECK THAT WE CAN READ THE HDCRC AFTER A 
4852 :REAO HEADER AND THAT IT IS THE CORRECT CRC 
4853 R THE HEADER. 
4854 017530 TOR 
uhEe 33 RKKKKAKKRAKAKSSSRARAARAARKAAA KAA KARA RRAAAARAAAEARARALAALAARSHHRAKLKKE 
4856 . 
4857 017530 005037 017600 CLR 33 
4858 017534 004537 Ol25Se ISR RS, LDFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
4859 017540 000010 RDHDR :READ HEADE 
4866 O17542 004537 013362 JSR RS, WICRDY *WAIT FOR CONTROLLER READY HIGH 
4861 017546 EScaPE TSt :IF /FL:LOE SET LOOP, ELSE EXIT TST 
(3) 017546 104010 EMT CSESCAPE 
me?) 017550 000114 -WORD LiO0056-. 
4863 017552 004537 oOl22s2 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
4854 017556 EScaPE TSt :IF /FL:LOE SET LOOP, ELSE EXIT TST 
(3) 017556 104010 EMT CSESCAPE 
wee 017560 000104 “WORD L10056-. 
4866 017562 013737 O02160 017576 MOV E.MP, 25 ;READ HEADER WORD 
4867 017570 004537 013130 JSR RS, StMBCC 360 CALCULATE CRC 
4868 017574 o00020 16. BITS 
48639 017576 000000 2s -WORD 0 HEADER GOES HERE 
4870 017600 000000 3$ -WORD 0 :START WITH O CRC 
4871 017602 013737 oO02206 017626 MOV CALBCC,S$ 
4872 017610 O1 737 OO0elbe 017624 MOV E.MP1. 4¢ ;GET SECOND HALF 
4873 017616 0049537 013130 JSR RS, SIMBCC 
4874 017622 O00020 16. 
4875 017624 900000 4$: WORD 0 


KO6 


a0. pleted 16: Ss! PAGE 88-1 


a 


i 


SEG 0075 
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OUTERR 


OCRLAA 


£ tL 
O---WOwo-.-~-.- 


+ 
Se 
BSR 


WWODDUTNUTW 


£££ 

wo 
000 

ow 


ee 


INININI~) stool 
WOFLL We 


Su 
roo 


017666 


ee et ee ee he 
Jaa 
HON LOOT 


RRRR AREER 


RPeppcceoocoosecessoosos2 
RUG EOE 
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o000 
on000 


ee 
To 


MACY11 30( 1046) 
0S-0CT-77 


0000 
13737 
38 7 
737 
001404 


104462 


007722 


10400: 


ati tetetot 


tatatet =tapd 
ett 


aR 
NR WWW £5 


Sosecco 
O-O0OKRrRe eK 
inVOoUlfrnNeR us 


30-OCT-77 
10:41 


003747 


#*TEST 33%% - CHECK CONSECUTIVE HEADERS 
,#*222HSTART OF TEST##4% 


LO6 


EACH. 
ADER WE WILL VERIFY 


;###END OF TEST exe 


FOLLOWS 39, 


WE WILL DO 
AFTER hie HAVE 
THAT 


SEG CO7s 


RE CALCULATED CRC AS GOOD 
RD READ OF wn GETS 
CRC CORRECT 
sO CONT INGE. 


CRC 


5 RKESSRRSREERER RELL AREAS LRAA AERA AA RELA ERA LA RARAARA LALA ERAALELEE 


AR FIRST READ DONE FLAG 


;CLE 
;STORE HEADERS 
;FOURTY HEADERS 


16:51 PAGE 88-2 
#KTEST 328% - CHECK OF HEADER CRC 
S$: .WORD O 
002224 MOV cAL Bcc GopAT 
002226 MOV ¢ BORA 
002226 CMP EF SDAT Beat 
BEQ 6$ 
ERRDOF 37.,EM42,ERRY 
TRAP TSERCODE’ 
WORD 37 
WORD EMY2 
WORD ERRY 
6$: 
ENDTST 
L10056: 
EMT CSETST 
.SBTTL 
BGNTST 
: K THAT THE HEADE 
:40 (FORTY) READ HEADERS AND ST 
;READ THE FORTIETH 
HEY CAME IN SEQUENTIAL, THAT 
eras THERE WERE NO ERRORS. 
CLR ST 
MOV #HORBUF , R3 
MOV 40.,.R1’ - 
002140 MOV #ROHOR! CRDY,B.CS 
002140 BIS IVE,B.CS 
162174 MOV .CS, ORL 
162166 2S: BIC #200, aR 
162160 1S: BIT 200; aR 


012534 


es 
sHORBUF , R3 
#40.,R 
(R3),E.CS 
E.CS 


995 
eee ,»RESTMS 


; DONE? 


;HAVE WE READ FOURTY ¥ MEADERS 


;GO_BACK_UNTIL FOUR 
HEADE 


;GET LIST OF Hi 


' 
' 
STARS 
= de ik ae SE aE gE Sb 9 aE a a ae a a aH Ha a HH ERE ERR ERED 
Rg 
;CHECK FOURTY OF THEM 


| QUTERR _MACYLI 022 
| DIRLAA.P Li 
' 4924 920020 
sees Sette, 
43 : 34 
sass Behe 
fees 
4333 sei 
4934 
4336 9200 
a feat 
4338 OS011 
4340 Oe0120 
cae BESS 
4943 020136 
4a4s e016 
| aug 
4547 G20154 
4948 
4a43 o20154 
43e1 
“55 Bagi 
(5) 0201 
(5) Oedlee 
4953 620170 
wZ,_ 020170 
4355 172 
49 Oe0176 
4957 Oe0e 
4388 Oeceue 
(3) Se0s08 
(3) Oe0e02 
49E0 
Wace 
4963 
4964 020204 
4965 020204 
(2) 
43e? 
4968 
4969 oc20204 


123 
iE 
y 
0878 
ts 
4 


tg 7 
13737 
04 


1040Si 


002160 


002176 


002230 


000006 


002226 
002210 
002210 
002210 


002224 





MO6 


SeRees ate pT 77 tee) ee eee. CHECK CONSECUTIVE HEADERS 


MOV (R3)+, 6. MP 
MOV -(R3)43 EMPL 
MOV (R3)+ E.NPe 
JSR RS, CHERR 
at 
995: ST (R3)+ 
MOV (R3), BDDAT 
TST fd st 
MOY 1 FIRST 
3S: nov Prat pat 
4$: INC GDDAT 
cnr DAT, GDDAT 
BIT SECMSK, BODAT 
BNE $ 
MOV DAT TE 
BIC CYLMSK, TEMP2 
CMP MXSEC1. TEMPe 
BEQ 3$ 
BIC SECMSK, GDDAT 
S$: 
CLR FIRST 
ERROF 38. Em43, ERR2 
TRAP TSERCO 
WORD 38 
WORD EM43 
WORD ERR2 
6S: CKLOOP 
MT CSCLP1 
ADD #6,R2 
DEC Ri 
BNE 995 
73: 
ENDTST 
L10057: 
EMT CSETST 


SEG 0077 


;CHECK CONTROLLER FOR ERRORS 


oer 
— READ? 


ONE FLAG 
ae ere TED 


ae 


22s Se St ee ee es es es es es eeweses 


maw 
o 


Ms CTOR 


s ERROR WILL MAKE US 
NEXT SECTOR SEQUEN 
i START OVER; CLEAR 


nA 


;CHECK IF /FL:LOE IS SET 


;HAVE WE DONE THIS ENOUGH 
;NO, GO BACK DO IT AGAIN 


;#2RREND OF TEST#4## 


.SBTTL #*TEST 34## - SEEK FUNCTION 


BGNTST 
STARS 


;##22START OF TEST##RH 


eae HE HEHE HE He HE HE MEH HM ae HE HERE EE RE RERE RE RRERE EERE RX 
aFEK FUNET EON RETURNS CONTROLLER READY 


i AHEC 
WITH HNO ERRORS WE Is 
jWE Do NOT CHECK TH 


TRACK IN WORD SEEK. 


E AO 
RESULT FOR POSITION 


Sf PRSRARARARALERALAERARKAKAARRAALARALARELEKALELRERAARELRAARAARAAEARE 








4373 Deuele 


tise Reis 


Oee4 

(3) Oedee4 
020230 

49 BSPS 36 
Oe3e 

4980 020234 


4982 20240 


4987 Oe0e42e 


4990 Oe0e4e 


4994 O20e4e2 


5004 O20e64 
£5005 0270 
(3) O2e0e70 
S006 

5007 Od20e7e2 


——EEE 


OUTERR MACY11 30(1 
AA.P11 oS-0c 


020304 


12777 
04S37 


012700 
104026 


104006 


004537 


104001 


012777 
004537 


0000068 
004537 
104006 
004S37 
104006 
004537 
104006 
004537 


104001 


pogers 
1eSSe 
013362 
ooo0de 


OleeSe 


000201 
012552 


013362 
Oleese 
013316 


Oleese 


161712 


161654 





NO6 


#eTEST 34%% - SEEK FUNCTION 


er -OCT-77 16:51 PAGE 88-4 
3} 1 


MOV #B1T7!MK!SIGN, aRLOA DA-DIFF=1,MARKER, TOWARDS 
JSR RS, LOFUNC Is sue FUNCTION 0 FOLLOWING WORD 
366 RS, WTCRDY geek FOR CONTROLLER READY HIGH 
WAITMS 4&2: 
Vv #2. ,RO 
EMT cSwtm 
2s: CKLOOP ;CHECK IF /FL:LOE IS SET 
EM CSCLP1 
JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
ENDTST ;##22END OF TEST#HR# 


L10060: 
EMT CSETST 


-SBTTL #*TEST 35#% - CHECK DRIVE READY ON SEEK 
BGNTST ;##*"START OF TEST#**# 


STARS 
jaerenveusenseezuenesssteurssesspobensosesueneseneeaneenenennner 


 AHECK ne SEEK PU ETON. RE TURNS DRIVE READY WITH 
;NO_ERRORS. WE I TRACK INWARD SEEK. WE DO 
a THE RESUL FOR" POSITION 


UFPTTTTTTTTTTTITTTTTTTTTTTTTITTTTT TTT TTT TTT TTT TTL EEL ETT Tee 


Moy aatr7itm QRLDA ;SET DA, MARKER, DIFF=1. 
JSR LDFUNG i ISSUE FUNCTION’ OF FOLLOWING WORD 
ISR a apenas :WAIT FOR CONTROLLER READY HIGH 
CKLOOP :CHECK IF “FL:LOE IS SET 
EMT CSCLP1 
ISR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
CKLOOP :CHECK IF /FL:LOE IS SET 
EMT CSCLP1 
ISR RS, WTDRDY ;WAIT FOR DRIVE READY — 
CKLOOP :CHECK IF /FL:LOE IS SET 
EMT - CSCLP1 - 
JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
ENDTST ;#*#**2END OF TEST##R® 


* EMT CSETST 


SEG 0078 


BO? 





OUTERR MACY11 30(1046) 30-OCT-77 16:51 PAGE 88-5 


DERLAA.P 11 05-OCT-77 16:41 R4TEST 362 - SEEK FUNCTION INTERRUPT SEG co79 
S015 .SBTTL ##TEST 36%# - SEEK FUNCTION INTERRUPT 
ae 620306 BGNTST ,;#HRESTART OF TEST#24# 
i 5013 
| §020 020306 STARS 
' (2) : +s KEAKESRHREKAELRRRARAHEKRARRAKREERAREARAL RAK RARKRKKRALAAARALSRAR AAS 
i S021 tAHECK THAT CONTROLLER READY RESETTING WHEN THE SEEK 15 
S022 HINTYIATED CAUSES AN INTERRUPT BUT DRIVE READY WILL 
5023 . WE ALSO MONITOR FOR aNY ERROR BITS SETTING. 
5024 020306 i tDRS 
5658 5p ERE RERRAARERRAKAERELFE REA ELERA RELA LAAKKELLLLLAAKRAKKAEREKE LER 
S0e6 
S0e7 
| 028 
SGe9 020306 005037 002172 CLR INTFLG 
5030 020312 SETPRI #PRIOO ;SET PSW TO O 
(3) 020312 oO12700 occo000 MOV #PRIO0,RO 
(3) O8031€ 94041 EMT CSSPRI° 
| $031 020320 012777 oOD0205 161576 MOV WBIT7!MKISIGN,ORLOA SET UP RLDA 
5032 Se0326 OO4537 diess2 JSR RS, LOFUNC ; 1SSueE FUNeTIGH OF FOLLOWING WORD 
5033 Se033¢ 0106 SEEK! INTEN’ ;SEEK AND INTR. ENA. 
5034 029334 004537 013362 JSR RS, WTCRDY :WAIT FOR CONTROLLER READY HIGH 
5035 020340 d00e40 NOP ; 
5036 20342 005737 002172 1$: TST INTFLG :DID INTERRUPT OCCUR 
5037 O20346 001004 BNE eg :YES, GO CHECK DRDY 
5038 020350 ERROF 40. En? ERRO 
(3) 020350 104462 TRAP TSERCO 
(5) Oe0352 oo9050 -WORD 40 
(5) 020354 005722 :WORD EMY7 
(5) 920356 007556 .WORD  ERRO 
5039 02036 2s: CKLOOP ;CHECK IF /FL:LOE IS SET 
(3) 104006 EMT CSCLP1 
epi 
5042 020362 004537 012252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
5043 020366 CKLOOP :CHECK IF /FL:LOE IS SET 
me) 020366 104006 EMT CSCLP1 
BOuS 020370 005037 002172 CLR INTFLG ;CLEAR INTERRUPT OCCURANCE 
5047 
O48 020374 OcO4S37 013316 JSR RS, WTORDY ;WAIT FOR DRIVE READY 
049 Oec400 cs: CKLOOP :CHECK IF “FL:LOE IS SET 
me) 020400 104006 ; EMT CSCLP1 
5051 oe20402 SETPRI #PRIO7 
(3) G20402 012700 oD0340 MOV #PRIO7,RO 
(3) dO20408 104041 EMT CSSPRI 
S0S2 920410 005737 002172 TST INTFLG ;010 ORIVE READY CAUSE INTERRUPT 
2053 020414 001404 BEQ =) :NO, CONTINUE 
S0sS o20416 ERRDF 42. Ense, ERRO 
(3) O20Si6 104462 TRAP TSERCO 
‘> Oeo4e0 Onoose . WORD 





sialon tabiiihilipentndiad a POE ee OW Ri Ls Se 
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a nee eee ee +. 


MACY11 3001 "32 
-Pil 


O0S-0cT- 


d2042e 


6 
Oed4eb 
02043 


peo 38 
620430 


020432 


Oed43e 


Oe04be 
020470 
020476 


00$753 
007556 


104006 


104001 


012703 
104004 
004S37 
meat 
104006 
004537 
104006 
013737 


043737 
001462 


004537 
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Ode466 


Ol1esse 
N1336e 


Ol2eSe 


O0eecéb 
O0eeeb 


CO? 


##TEST 36%% - SEEK FUNCTION INTERRUPT 


16:51 PAGE 88-6 


-WORD EMS2 
.WORD. ERRO 
6$: CKLOOP ;CHECK IF /“FL:LOE IS SET 
EMT CSCLP1 
ENDTST ;###REND OF TEST ###* 
L 10062: 
EMT CSETST 


-SBTTL #2#TEST 37%% - TEST DIFFERENCE WORD TRANSMISSION 
BGNTST ;#*22*2START OF TEST##4% 


oe 
Se ee ere ie eee ee tee 


iVERIEY THAT eSeeeetty Me if RD LOAD S AND IS 
°T ANSMITTED C TLY. WILL eee SEEKS WITH THE 
: DIFFERENCE WORD | CONTA L OF THE BIT PATTERNS FLOATING 1, 
i GROWING J, GROWT STING O. THE SEEK | 
!START FROM TRACK H TINE AND WILL RET 
;EACH, THUS BOTH DIREC TONS OR PATTERNS WILL be ERE ECKED. 
RS ARE USED TO VERIFY THE SEEK CORRECTNESS. 
oe ARE MONITORED AND REPORTED. 


5 He AR IE ME HE AE eH HE SE AE HE HE AE AE eH HE EE HEE HE HE EERE EERE REAR AER ERE 
MOV #SKLST,R3 ;GET LIST OF DIFFERENCE WORDS 


BGNSEG :#4#4S TART OF SEGMENT #### 
EMT CSBSEG 


iS: 
JSR RS, LOFUNC i ISSUE FUNCTION OF FOLLOWING WORD 
ISR RS, WTCRDY :WAIT FOR CONTROLLER READY HIGH 
98S: CKLOOP :CHECK IF “FL:LOE IS SET 
EMT CSCLP1 
ISR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
CKLOOP :CHECK IF /FL:LOE IS SET 
EMT CSCLP1 
MOV E.MP, BDDAT ;READ HEADER 
BIC SECMSK, BODAT :CLEAR OUT SECTOR 
BEG 395 :IF ON TRACK ZERO, H.S. ZERO, OK 


gIOT Oe TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK 


BIC #RHHS , BODAT ;CLEAR OUT HEAD SELECT 

MOV BODAT , SRLDA BUT CYLINDER AS DIFFERENCE WORD 
BIS K, wRLD :SET MARKE 

ISR Ree cBFunc : ISSUE FUNCT Ton OF FOLLOWING WORD 


ry 


SES 0oso 





eee emennense-eeee = rs 


OUTERR MACY11 3011046) 30-OCT-77 16:51 PAGE 88-7 
DSRLAR.P LL OS-0CT-"77 10:41 *#eTEST 37## - TEST DIFFERENCE WORD TRANSMISSION SES C81 


~ 


0s. jejelale) SEEK ; SEEK 
BSoe30 Boas 013362 JSR RS,WTCRDY seat FOR CONTROLLER READY HIGH 
CKLOOP CHECK IF /FL:LOE IS SET 
104006 EMT CSCLP1 


~ 


020536 OO4S37 Ole2ese JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
BSpey CKLOOP :CHECK IF /FL:LOE IS SET 
OS4e 104006 EMT CSCLP1 


020544 004537 013315 JSR RS, WTORDY ;WAIT FOR DRIVE READY 
020550 89$: al :CHECK IF /FL:LOE IS SET 


Oe0ssO 10400& CSCLP1 


Oe0sSe O04S37 OieeSe JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
Oe0SS6 CKLOOP ;CHECK IF /FL:LOE IS SET 
Oe0sS& 104006 EMT CSCLP1 


020560 004S37 Olesse JSR RS, LOFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
090010 ROHOR ;READ HEADER 

Oe0S66 O004S37 013362 JSR RS,WTCRDY :WAIT FOR CONTROLLER READY HIGH 
0e0S7 968: CKLOOP :CHECK IF /FL:LOE IS SET 

Oe0S7e 104006 EMT CSCLP1 


020574 004537 Oleese JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
0600 CKLOOP ;CHECK IF /FL:LOE IS SET 
Oe0600 104606 EMT CSCLP1 


0602 9005037 poese. CLR GODAT ;CLEAR EXPECTED 
0606 013737 OO0eee& 002240 MOV BODAT , OWORD ; SAVE E DIFFERENCE WORD 
020614 013737 002160 OOeee6 MOV E.MP, BODAT EAD HEA 

Oe06e2 043737 002176 O0eeeb BIC SECMSK, BDDAT i MASK OUT SECTOR BITS 
020630 001404 . BEQ = ;BRANCH IF ON ZERO TRACK 


OWT rt 
£WNM~-OD~ONTULE ~- Wile ~OW 
oO 
ul 
o 
<£ 


SO eee Bae om ee Be ee ba Be Bae Bae en ee Ne ss ee Be ae ne etn pe ee be oe ee ae Be ee se ee ee ee me ee 
wet fu hrf feet tr tat tepert « hbiedbdhbest it ht ot i tht fetes i hed rhe her + beets} Hs” beta te Se 


43. ,EMS4,ERR3 
020632 104462 TRAP TSERCO ODE 


0636 006023 . WORD eSY : 
020640 007650 .WORD ERR3 
Oe0b4e S$: CKLOOP ;CHECK IF “FL:LOE IS SET 
Oe064e 104006 EMT CSCLP1 


020644 011377 161254 99S: MOV (R3),9RLOA ;GET DIFFERENCE WORD 
020650 O0Se777 O0000S 16124e - BIS aS1GH? MK @MRLDA ;SET SIGN (TOWARDS SPINDLE} AND MARKER 
RE 0e>s 004S37 Oiesse JSR RS, LOFUNC de E FUNCTION OF FOLLOWING WORD 


6 
Ce0664 O04S37 013362 JSR  _—s_- RS, , WTCRDY ;WAIT FOR CONTROLLER READY HIGH 
020670 Ki, OOP ;CHECK IF /FL:LOE IS SET 
Oc0670 104006 EM CSCLP1 


020672 O04S37 012252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
020676 CKLOOP ;CHECK IF “FL:LOE IS SET 
5e0676 104006 . EMT CSCLP1 


020700 004537 013316 JSR RS,WTORDY ;WAIT 
020704 67s: CKLOOP ; CHECK 
Ged704 104006 EMT ACLFl 


wn 


~NOU CWE OK ~~ DON 
mina 
AC 


FOR DRIVE READY 
IF /FL:LOE IS SET 


CU CAURU CUTUTUn niin 


~ We OW 





| 6§144 


UU) WU ut 


WUT UU 
Oe wee SW -ODW UES ~WLW~M-OWD I~ 


wi 


w 
hh ee ae he ee em em. ee he eB ee et ee 8 ee ae eo ee ee ee Be be ee he ee he ee 


COMMOMDMMOD WING YWW YN Rw ND as nhs dt Ad Ls dd: papers yp tit tte tt SES 


Un URUOUUTnnoniin 
he £WM-OWON® } ~Ne ~ £W--OwWON 


re 


CUTOUT UT 


MACY1L1 
-Pil 


Sion Snead? 


aT 
Oro 


021022 


02102& 


021026 


30 


30-OCT-77 


(1046) 

05-0cT-77 10:41 
004537 012252 
104006 
004537 o125s2 
000010 
004537 013362 
104008 sts” 
004537 o12252 
104010 
000064 
011337 oo02224 
011337 OOee40 
013737 002160 
043737 002176 
023737 O0e224 
001404 
104462 
000054 
006023 
007650 
104006 
905723 
20327 902566 
001402 
600137 o20440 
104005 
104001 


002226 
O0e226 
O02ee6 


16:51 
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#eTEST 37%% - TEST DIFFERENCE WORD. TRANSMISSION 


9S: 


10$: 
ENDSEG 


100008: 


ENOTST 


L10063: 


. SBTTL 
BGNTST 


STARS 


5 REEREKEREREAERKAAEERAAARALAKRALAARAASLAE ELA RALA LAA RARAARERERAEPAE 


JSR RS, CHERR 
CKLOOP 
EM CSCLP1 
ISR RS, LDFUNC 
RDHOR 
ISR RS,WTCRDY 
CKLOOP 
EMT CSCLP1 
JSR RS, CHERR 
ESCAPE SEG 
EMT CSESCAPE 
-WORD 10000$-. 
MOV (R3) , GODAT 
MOV (R3) > DWORD 
MOV E.MP*BDDA 
BIC SECMSK, BODAT 
CMP GOOAT , BDDAT 
BEQ 9S 
ERRDF 44. ,—MS4,ERR3 
RAP TSERCODE 
WORD 44 
WORD E&MS4 
WORD ERR3 
CKLOOP 
EMT CSCLP1 
TST (R3)+ 
CMP R3, #SKEND 
BEG 10% 
JMP 1$ 
EMT CSESEG 
EMT CSETST 


;CHECK CONTROLLER FOR —_—" 


;CHECK IF /“FL:LOE IS SET 


; ISSUE Ces 1 sor OF FOLLOWING WORD 


;READ HEADE 


:WAIT FOR CONTROLLER RE 
ICHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
;1F /FL:LOE SET LOOP, ELSE EXIT SEG 


;CHECK IF /FL:LOE IS SET 


;BUMP PATTERN 


;D1D0 WE DO ALL PATTERNS” 
; YES, GO TO NEXT TEST 


;NO, GO BACK WITH NEXT PATTERN 


;#*#RREND OF SEGMENT #44 


;#*HR22END OF TEST#¥4% 


##TEST 384% - VERIFY HEAD SELECT O VIA RD HDR 
;RHHXSTART OF TEST# RRS 


CHECK THAT WE CAN SELECT HEAD SELECT ZERO. 


ISSUE 


ADY HIGH 


SES C082 


— 


a a . — 
" ag 

| 

! 


FO? 


-SBTTL #*TEST 39*# - VERIFY HEAD SELECT 1 VIA RD HOR 


 QUTERR _MACY11 30(1046) 30-OCT-77 16:51 PAGE 98-9 
—S2RLAR.P11 © 05-OCT-77 10:41 #HTEST 38%* - VERIFY HEAD SELECT O VIA RD HOR SEG cce2 
5186 -SEEK TO HEAD SELECT O AND VERIFY WITH READ HEADER. 
5187 021026 STARS 
5 (82 4 5 RRRRKEAARELAAALRARKAEA ELLA LE AERA LL LARA LRELELRAELARKAAELLLLAEFAAFRSS 
S189 021026 012777 900001 161070 998: MOV #MK, IRLDA ;SET MARKER IN RLDA 
5190 921034 005037 fozee4 CLR GODAT Ber EXPECTED 
5191 LOAD HS=0 INTO RLDA 
5192 021040 2s: 
2133 Ge 1040 04537 012552 JsR RS, LOFUNC Sue FUNCTION OF FOLLOWING WORD 
519s Be104@ OONS37 013362 JSR RS, WTCRDY :WAIT FOR CONTROLLER READY HIGH 
5196 21052 CKLOOP :CHECK IF /FL:LOE IS SET 
g(g> 081052 104006 EMT CSCLP1 
5198 021054 004537 012252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
£193 021060 CKLOOP :CHECK IF /FL:LOE IS SET 
=5a7, 021060 10006 EMT CSCLP1 
8201 O21062 Of4537 013316 JSR RS, WTDROY ;WAIT FOR ORIVE READY 
Se02 021066 89S: CKLOOP jCHECK IF/*\zLOE IS SET 
gg, C2105 104006 EMT CSCLP1 i 
5204 021070 004S37 012252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
be9S 021074 CKLOOP :CHECK IF /FL:LOE IS SET 
oS, vel074 104006 EMT CSCLP1 
202 021076 004537 Oless2 JSR RS, LOFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
5208 021102 o0001 RDHDR ;READ HEADER 
5209 021104 004537 013362 JSR RS, WTCRDY ‘WAIT FOR CONTROLLER READY HIGH 
52i0 021110 96S: CkLOOP !CHECK IF /FL:LOE IS SET 
gs?) 021110 104008 EM CSCLP1 
52i2 O21112 004537 o12252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
S213 Geille EScarpe St !IF /FL:LOE SET LOOP, ELSE EXIT TST 
(3) 021116 104010 EMT CSESCAPE 
mS?) 921120 000036 “WORD L10064-. 
S215 021122 013737 o02160 oD2e26 MOV ODAT ;READ HEADER FOR HEAD SELECT 
S216 OellsO 042737 177677 OOeece BIC Fp 7k e7 BODAT ;MASK ONLY HEAD SELECT 
5217 021136 023737 OO02224 OOecc6 CMP GoDAT. BODAT !COMPARE HEAD SELECTS 
beig 021144 001404 BEQ S$ :IF EQUAL CONTINUE 
E220 O21146 ERROF 45.,EMSS,ERRY 
@) Gel 146 104462 TRAP TSERCODE’ 
(5) 021150 Oo0055 ‘4 WOR 
(6) 21152 oo6062 HORS | EGS 
(§) 981153 907722 "WORD = ERR4 
eee 021156 : S$: 
Fees 021156 ENOTST ;##eEND OF TEST##2# 
‘3) Qeltss L10064: 
3) Se1iSe 104001 EMT CSETST 
25 
2 
2? 


wn 
fmorofor -~ 





-_——  F7 


OUTERR MACYLIL 
DZRLAR. PLL 
2368 021160 
$230 
S231 021160 
cae 
S2e3e 
5233 
at 021160 
\ 
5235 
2538 
S237 021160 
Se3s 021166 
S239 021174 
Se40 021200 
S241 Oe2led0e 
Se4e 021206 
(3) Geleds 
S243 
S244 021210 
Se4s O2lel4 
(3) O2lel4 
S246 
S247 pe 1618 
Seve Oeleee 
(3) Oeleze 
S249 
SesO 021224 
S25! 021230 
(3) 021230 
S252 
SeS2 Oe2le23e 
EY 021236 
621240 
5256 ne tens 
(3) O21244 
5257 
Sese 021246 
SeS3 OeleSe 
(3) Qeiese 
(3) O2les4 
5260 
Seél 021256 
Sebe O0eleb4 
5263 beie’s 
S264 021300 
S26S 021306 
S266 
S267 021310 
(3) 621310 
(S$) Q2l1312 
(S$) - 921314 
(5) 021316 
Sets 0ei3e0 
oce3 
£270 021220 


30% 104 
0S-0CT “$2 


104006 
004537 
104006 
004537 
104006 
: er 


104010 
030044 


013737 
042737 


30-OCT-77 
10:41 


009001 
000020 
OlesSe 


013362 
Cleese 
013316 
OieeSe 


O1esse 
013362 


Oleese 


002160 


O0e22e4 


ee ee © 


002226 


O0eecb 


16:51 
* 


GO? 


;*#*#*24START OF TEST #*#% 


- 


PAGE 88-10 
#TEST 39%% - VERIFY HEAD SELECT 1 VIA RD HOR 
BGNTST 
STARS 


- REKHERREAREAAAARRRA RAR HLA A RA ALLA SLA ALLA LLAE LAA RLARAREAAKFLARLAKRES 


Ay HECK THAT WE CAN SELECT HEAD SEL 
AND VERIFY WITH READ HEADER. 


i SEEK TO HEAD SELECT 1 


ECT ONE. ISSUE 


 PATSUESSHEGERESERESRREESRRENAREREESREDSEESEEEONEROSEReHNEEEENSH 


HH 
995: MOV 
BIS one ERC DA 
23: JSR LDFUNC 
SEEK 
JSR om. urcee 
CKLOOP 
EMT CSCLP1 
JSR RS, CHERR 
CKLOOP 
T CSCLP1 
SR RS, WTDRDY 
89s: CKLOOP 
T CSCLP1 
SR RS, CHERR 
CKLOOP 
MT CSCLP1 
SR RS, LOFUNC 
RDHOR 
SR RS, WTCRDY 
CKLOOP 
EM CSCLP1 
JSR RS, CHERR 
ESCAPE TST 
MT CSESCAPE 
-WORD L1006S-. 
MOV E.MP, BODAT 
BIC ee haa BDDAT 
MOV #RHHS , GODAT 
CMP GDDAT’ BODAT 
BEQ S$ 
ERRDF 46.,EMSS,ERRY 
RAP TSERCODE 
WORD 46 
WORD EMSS 
“ WORD ERRY 
ENOTST 


s5Et MARKER _IN RLDA 
OAD HS=1 INTO RLDA 
: TSSUE PUNCTION OF FOLLOWING WORD 


SEEK 
WATT FOR NCONTROLLER READY HIGH 
; CHECK oP gt :LOE IS SET 


— 


; CHECK CONTROLLER FOR ERRORS 
:CHECK IF /FL:LOE IS SET 


;WAIT FOR DRIVE CLEAR 
:CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
:CHECK IF /FL:LOE IS SET 


ty eT ton OF FOLLOWING WORD 
IT FOR CONTROLLER READY HIGH 
ECK IF /FL:LOE IS SET 


ECK CONTROLLER FOR ERRORS 
/FL:LOE SET LOOP, ELSE EXIT TST 

;READ HEADER 

3M H. 


YES, CONTINUE 


;#e**END OF TEST2 222 


OUTERR 


|“ DERLAA. 


< 


ooo 


MACY11 3011046) 


Pll 


851380 


021322 
021322 


021350 
021354 
021354 


021400 
021404 


os-0cT-7"7 ‘ 


104001 


005037 
04S37 
[elelss)-) 

004537 

104006 

004537 

104006 

004537 

104006 

004537 

104006 

012777 

004537 

Oo0004 

004537 

104006 

004537 


04010 
O00SE 
013737 
001404 


LO44€¢e 


Fr -OCT-77 16:51 PAGE 88-11 
1006S: 
EMT 
.SBTTL 
BGNTST 
T STATUS 
VERIFY WITH GET STAT 
TARS 
oos001 160574 MOV 
002224 2s: CLR 
012552 35: ISR 
SEEK 
013262 JSR 
CKLOOP 
EMT 
012252 ISR 
CKLOOP 
EMT 
013216 JSR 
: CKLOOP 
EMT 
012252 JSR 
CKLOOP 
EMT 
000003 160524 MOV 
olesse ISR 
GSTAT 
013262 JSR 
CKLOOP 
MT 
O122s2 JSR 
ESCAPE 
EMT 
WORD 
002160 op2226 MOV 
177677 O0eece BIC 
C0z224 O022c6 CMP 
BEO 
ERROF 
TRAP 


HO? 





eeTEST 394% - VERIFY HEAD SELECT 1 VIA RO HOR 


CSETST 


*#eTEST 4O#*# - VERIFY HEAD SELECT O VIA GET STATUS 
;#H#*START OF TEST #444 


TARS 

= REKEREEERERAARERRRARRAAAAA EARL RARAARELARARAAAARARAEARELAELELFLE LFF S 
: CHECK THAT WE CAN READ BACK HEAD SELECT O WITH 

FUNCTION. SELECT 


H.S. O WITH A SEEK 


5 RERERERE EEE RE LEELA RAE REEL EERE L RARE RE EERE RRER ALL RERE ARLE ERS 
MK , JRLDA 


GDDAT 
RS, LDFUNC 


RS,WTCRDY 
CSCLP1 
RS, CHERR 
CSCLP1 
RS,WTORDY 


CSCLP1 
RS, CHERR 
CSCLP1 


S 


Be ea UNC , IRLOA 


RS,WTCRDY 

CSCLP1 

RS, CHERR 

Cra arere 
66-. 


> Ne 
N 
wo 
* BO 
“3 
4 


;SET MARKER _IN RLDA 
; LOAD SEO INTO RLOA 


T 
i TSSuE FUNCTION OF FOLLOWING WORD 


; SEEK 
;WAIT FOR CONTROLLER SEnov HIGH 
:CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
:CHECK IF /FL:LOE IS SET 


;WAIT FOR DRIVE READY 
:CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
:CHECK IF /FL:LOE IS SET 


;SET UP_FOR GET STATUS IN DA 

5 13SUE At ee OF FOLLOWING WORD 
:WAIT FOR CONTROLLER + ad HIGH 
:CHECK IF “FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
:IF /FL:LOE SET LOOP, ELSE ExIT TST 


REO SON YH FOR HEAD SELECT BIT 
:IS HEAD SELECT CORRECT? 
YES, CONTINUE 


-_- SS eS 


OUTERR 
DIORLAR.PL) Lt? 
(S$) Q214S2 000057 
(S$) O214S4 006115 
($) BS 1 i2B 007722 
5315 921460 
5316 
S3i7 021460 
2) 021460 
(3) 0214680 104001! 
5318 
§319 
S320 
$321 
S3ee delirste 
$323 
$384 o21462 
(ee; 
S3e5 
5356 
$327 
5358 021462 
$3293 
$330 
5331 dO214&ée Ole777 
S33e 021470 052777 
§333 Cel476 012737 
Be Bin Bae 
5236 Bsieis Bo4es 
5:37 021516 
(3) O21516 104006 — 
5338 
5339 021520 004537 
5340 GeisSe4 
(3) Oe21Se4 104006 
S341 
S34e 921526 004537 
5343 021532 
(3) BelS32e 104O00E 
S344 
5345 021534 004537 
E346 021540 
(2) 021540 104OCE 
S347 
£348 021542 012777 
E34S 21550 004537 
S350 921554 900004 
6351 Satta 004537 
E352 021562 
(3) OelSe6e 104010 
(3) Oe21S64 O0004%e 
£353 
c 
e3ee Geese OONS27 
:3) GelS7e2 104010 
‘3: Ses74 oooese 


MACYL1 30: 1046) 30-00T-77 
o8-o¢7-57 10:41 


ooo001 
0 


Oiesse 
913362 


Ole2se 
O13316 
Cleese 


909003 
Clesse 


013362 


Cleese 


—— + a a a 


160434 
160426 
002224 


160354 


16: $1 


107 


ENSé 
ERRY 


CSETST 


se 
sTk eh uben = VERIFY HEAO SELECT O VIA GET STATUS 


;##*eEND OF TEST#aee 


#eTEST Yl## - VERIFY HEAD SELECT 1 VIA GET STATUS 


;##HaSTART OF TEST#### 


ee ye ae ggg ee | ene 
T WE CAN READ BACK HEAD SELECT 1 WITH A 


SELECT H.S. 


. WORD 
. WORD 
. WORD 
6$: 
ENDTST 
L1IOQO6E: 
EMT 
.SBTTL 
BGNTST 
STARS 
HECK 
: STATUS TEoNc tion 
:GET STATUS 
STARS 


GET 
1 WITH A SEEK AND VERIFIY WITH 


fp RARAAEKARAAAAAAREAAEAERALAAALALAAAKAARAALLELRAETHALELRAARALALALER 


eM 


Pe Uy ,GDDAT 


5, LOFUNC 
RS, WTCRDY 
CSCLP1 
RS, CHERR 
CSCLP1 
RS, WTDRDY 
CSCLP1 
RS, CHERR 
CSCLP1L 


pose TT thx. JRLOA 
RS,LOFU 


RS WTCRDY 
St 
CSESCAPE 
L10067-. 
RS, CHERR 
Ret 


CSESCAPE 
L10067-. 


;SET MARKER _IN RLDA 
{LOAD nr RLDA 


x 
; ISSUE FUNCTION OF FOLLOWING WORD 


RATT FOR CONTROLLER READY HIGH 
:CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
;CHECK IF /FL:LOE IS SET 


;WAIT FOR DRIVE READY 
:CHECK IF 7FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
;CHECK IF /FL:LOE IS SET 


;SET UP_FOR GET STATUS IN DA 

t ISSUE A+ ee OF FOLLOWING WORD 
;WAIT FOR CONTROLLER READY HIGH 

;IF “FL:LOE SET LOOP, ELSE EXIT TST 


; CHECK CONTROLLER FOR ERRORS 
;IF /“FL:LOE SET LOOP, ELSE EXIT TST 


a a 


JO7 | 


OUTERR MACYLi 2O(1D4&) 30-OCT-77 16:51 PAGE 88-13 ; 
DeRLAA.PLL 05-0cT-77 10:4 eeTEST Yle® - VERIFY HEAD SELECT 2 VIA GET STATUS . SEG OCe7 
5356 
5357 21576 013737 002160 002226 MOV E.MP, BDD ; READ STATUS FOR HEAD SELECT BIT 
6358 021604 O4e737 177677 OO2226. BIC #177677 BODAT LEAVE 0 T 
5359 Geitiz 023737 002224 Oo02226 CMP GODAT,B BOBAT HIS HEAD SELECT CORRECT? 
2360 021620 901404 BEQ 6$ YES, CONTINUE 
| §362 oe21622 RROF 4S.,EMS6,ERR4 
(3) Qelbee 104462 FRAP TEEREOBE 
(5) 021624 o90060 WORD 4B 
(5) O2l6e6 006115 "WORD EMS6 
‘5) 021630 007722 ‘WORD ERRY 
5363 , 021632 6S: 
5365 021632 ENDTST ;##2END OF TEST###% 
(3) Qelb3e L10067: 
(3) 021632 104001 EMT CBETST 
sas | 
a 
| e368 .SBTTL ##TEST 42x" - TEST TIME AT WHICH DIF WD GETS TRANSMITTED 
5370 021624 BGNTST ;##24START OF TEST##** 
: 5372 
5373 021634 STARS 
t2) peer teear tur DIFFERENCE WORD ON A EK If 
5374 ; VERIFY T THE DIFFERENCE WORD ON A SEEK IS 
5375 t TERNSMITTED PRIOR T Q CONTROL LER READY SETTING. THIS 
5376 : :1S DONE BY SETTING A K UN DIFFERENCE WORD IN 
5377 :THE RLOA ISSUING A A eee WAITING FOR CONTROLLER READY 
5378 ; BUT NOT DRIVE READY), Ey HALT A DIFFERENT RLDA AND WAITING 
5379 :FOR DRIVE READY. THE /RESULTANT POSITION SHOULD BE THAT 
5380 ,OF THE FIRST RLDA ONLY 
5381 021634 Ta TARS 
5462 jp RRERARRA RARER AEE R EERE RERLA REE RRAELERELERAERLRLLES kt 
£393 
53284 021634 0N4S37 oOlesse ISR RS, LDFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
5385 O21640 O00010 RDHOR ; READ ADER 
5386 Oele4e 004537 013362 JSR RS, WTCRDY :WAIT FOR CONTROLLER READY HIGH 
5387 O21646 99$: CKLOOP :CHECK IF /FL:LOE IS SET 
me) O2i646 104006 EMT CSCLP1 
£389 021650 004537 Ol2252 ISR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
6390 021654 CkLOOP ‘CHECK IF /FL:LOE IS SET 
<3) 021654 104006 EM CSCLP1 
5392 O21656 013737 O02160 o02224 MOV ;READ HEADER 
£393 Oe 166s 43737 002176 O0ece4 BIC Serra OAAT :CLEAR SECTOR BITS 
5394 021672 012777 SOd001 160224 MOV SE MARKER IN RLDA 
5395 021700 032737 OO001 002224 BIT aR RHAS. :TEST H.S 
£396 621708 601403 BEQ 2s :IF ZERO, CONTINUE 
£397 02171 2777 oo00020 460206 BIS #DAHS, ARLDA ; ONE Set 30, WE WILL REMAIN THERE 
£398 021716 013737 OO22e24 OO22l6 2s: MOV GDDAT? THEO TORE HE 
5399 021724 042737 O00100 odeei6 BIC #RHHS; TMPO fal (eAR He g0 EPROM STORED WORD 
E400 021732 023737 OOe2cle OOes44 CMP TMPO, HAL MAX ‘WHERE ARE WE? 
E401 021740 101007 BHI 33 :BRANCH IF ON INNER HALF 
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o4g) 30-0CT- “77 16:51 PAGE 98-14 
DZRLAA.P11 05-OCT-77 1 RKTEST 4YOx® - TEST TIME AT WHICH DIF WD GETS TRANSMITTED SEG Coes 
S402 Oe1742 052777 O00004 160154 BIS #SIGN, IRLDA ;ON OUTER HALF, SET SEEK TO GO IN 
403 g1750 063737 002542 Od02224 ADD QUAMAK, GODAT oar XPECTED HEADER 
540S .021760 163737 po2sie 002224 3s: SUB QUAMAX, GDDAT ISET UP EXPECTED HEADER 
5406 021766 053777 42 160130 4$: BIS QUAMAX, aRLDA ; SET DIFFERENCE WORD IN RLDA 
5407 021774 12737 000001 O02220 MOV 1 :SET UP ANOT RLDA” FOR LOADING 
3108 ge200 03 053 co0020 160114 BIT t0AHS, @RLDA :ETER SEEK, ; CHANGE ONL 
5410 Oe20l2 737 000020 002220 Is #DAHS, TMP1 ; 
paid deeded b04537 poogEs S$: 13k RS, LDFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
Sih Gespee OOVeS? o1scee SeFoop RS-MTOROY —FARETAFOR SPNTRBLAES BEOY Ht 
(3) Oe2032 104006 EMT CSCLP1 E : 
Siig 
Eig 95033 cwss7 oveese ESfoop RS-CHERR SELES SPTRPLLES F2*SEFORS 
ms) 022040 104006 EMT CSCLP1 , 
5420 oOe2042 013777 OO2220 160054 ~~ MOV THP @RLDA ;SEND IN NEW DIFFERENCE WORD 
piel 0 2050 004537 013362 JSR op F S ,WtCRDY {AIT FOR CONTROLL ER READY HIGH 
533 20 104006 EMT CSCLP1 
pice g22056 004537 012252 JSR op RS, CHERR : CHECK CONTROLLER FOR ERRORS 
<3 O22062 104006 EMT CSCLP1 
S427 022064 004537 013316 JSR _—s- RS, WTDRDY ;WAIT FOR DRIVE READY 
5428 022070 gS: CKLOOP :CHECK IF /FL:LOE IS SET 
(3) O22e070 104006 EMT CSCLP1 
2450 
2432 Besore 4 OONSS7 Cleese oo SeHERK fF Urestoe Is ser 
=i 022076 104006 EMT CSCLP1 | : : : 
etad 922100 904537 o1e5s2 , JSR RS, LDFUNC j ISSUE FUNCTION OF FOLLOWING WORD 
B38 O2¢106 004537 013362 JSR op RS ;WTICRDY ;WAIT FOR CONTROLLER READY HIGH 
«i323 O22lle 104006 EMT CSCLP1 : 
5439 022114 004537 oO12252 : ISR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
e440 Oeeied atin ESCAPE 5 le :IF /FL:LOE SET LOOP, ELSE EXIT TST 
oi? O22i22 o00036 -WORD L10070-. 
S442 022124 013737 O02160 coz MOV E. ;READ HEADER 
5443 Oceelse 043737 002176 O02cce BIC etmsee BRAT :CLEAR SECTOR ADDRESS 
E444 022140 023737 O02e224 O0ecc6 CMP GOOAT , BODAT :TS HEADER COR RECT? 
Ets 022146 001404 BEQ 10$ :IF SO BRAN 
E447 022150 ERROF  5O0.,EMS7,ERRY 
(3) G2-150 104462 TRAP TSERCODE’ 
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| DERLAA.PLL 05-OCT-77 10:41 #eTEST Yeu - TEST TIME AT WHICH DIF WD GETS TRANSMITTED , SEG oces 
(S) O22152 o00062 .WORD 50 
(§) 2154 . 006154 -WORD £&MS7 
(§) G22156 007722 -WORD ERRY 
S438 0221 10S: 
S450 02€2160 a ENDTST ;####END OF TEST#RR# 
3) 022160 L10070: 
(3: 622160 104001 EMT CSETST 
ede} | | , 
si53 -SBTTL #*#TEST 43%" - EXTENSIVE CHECK OF HEADER CRC 
S4SS 22162 _ BGNTST ; ;#eeeSTART OF TESTHHHE 
S456 022162 STARS 
(2)  REKKERKRERESREEREG REAR RERAARERARRRRARAARAARAARRAAAAAAAALRAALAAEAEE 
5457 I MORE EXTENSIVE CHECK OF HEADER CRC. WE WILL EK 
5458 :AND READ HEADERS VERIFYING HDR CRC ACROSS THE 
5459 :PLATTER USING THE GROWING 0, GROWING 1, SHIFTING O AND 
5460 “GROWING O PATTERNS FOR TRACK ADDRESSES: 
S461 o22162 Stan RS pares 
5ie> WUPPTTEPTTPITETTTTTTTTTTTTTTTTITTTTTTIT TTT TTT TTT TTT TTT TTT ee 
S463 . 
5464 O22162 012703 oo0a4é6 MOV #SKLST,R3 ;GET LIST OF DIFFERENCE | WORDS 
5465 Oeel66 BGNSEG :4#eeSTART OF SEGMENT 
(3) O22166 104004 EMT CSBSEG 
S466 022170 1S: 
5467 022170 004537 o12552 JSR RS,LOFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 
5468 022174 O00010 RDHOR ;READ HEAD 
5463 022176 004537 013362 JSR RS, WTCRDY :WAIT FOR CONTROLLER READY HIGH 
5470 , Oe2e202 983: CKLOOP :CHECK IF /FL:LOE IS SET 
52 Geee02 104006 EMT CSCLP1 
S472 022204 004537 O12252 JSR RS, CHERR ; CHECK K CONTROLLER FOR ERRORS 
5473 Oeeelo CKLOOP :CHECK IF /FL:LOE IS SET 
me) 022210 104006 EMT CSCLP1 
5475 022212 013737 O02160 o022e6 MOV E.MP, BODAT ;READ_ HEADER 
5476 Oeeee0 9043737 O0el76 O0eect BIC SECMSK, BDDAT ;CLEAR OUT SECTO 
pared 022226 001461 BEQ cS :IF ON TRACK SERO, H.S. ZERO, OK 
5479 ;NOT_ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK 
2480 :ON ZERO. 
5482 022230 042737 OOD100 onee26 BIC #RHHS , BDDAT ;CLEAR OUT HEAD SELECT 
S483 Oeee36 013777 O0e226 157660 MOV BDDAT , @RLDA :PUT CYLINDER AS DIFFERENCE WORD 
5484 Oeee44 052777 O00001 157652 BIS ahd LDA ;SET MARKER BIT 
28s Oceese 004537 012552 Jor Reve FUNC i ISSUE FUNCTION OF FOLLOWING WORD 
5487 Oe2260 004537 013362 JSR RS,WTCRDY SAT FOR CONTROLLER READY HIGH 
S488 022264 CKLOOP :CHECK IF /FL:LOE IS SET 
533 022264 104006 EMT CSCLP1 
5490 022266 O04S37 Ol225e JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
E491 Oeee7e CKLOOP :CHECK IF /FL:LOE IS SET 
‘25 G22272 104006 EMT CSCLP1 





eee oo - 








MO? } | 


| OUTERR _MACY ($046) 30-OCT-77 16:51 Pe E 88-1 
SYacan.P ri tt B05 aps? 1ca4 ae uSea- ee = © EXTENSIVE CHECK OF HEADER CRC SEG co90 
j 
| 58492 
493 74 004537 013316 JSR RS, WTDRDY sWAIT FOR ORIVE READY 
euea peeSa0 - 89S: CKL OOP {CHECK IF /FL:LOE 1S SET 
(32 022300 104006 EM C$CLP1 
eu3e a fe ee ia CHECK CONTROLLER Scere 
side BSS356 104008 EMT CSCLP1 : 
499 
3500 922310 904537 o12ss2 JSR RS, LOFUNC ISSUE FUNCTION OF FOLLOWING WORD 
secs o53s8 nett 013362 sai JSR op RS, WTCRDY :HATT FOR CONTROLLER READY HIGH 
me 2322 104006 y ENT CSCLP1 ; 
Bene pesaag CONS? = Oleese Ee oop RS+CHERR CHEK TON ECct oe is*ser 
<¢3) 022330 104006 EMT CSCLP1 vi : 
5508 02 7 002224 CLR GDDAT ;CLEAR EXPECTED 
2208 8 3 603935 po sese 002240 MOV BODAT , DWORD ;SAVE DIFFERENCE WORD 
eet? B5S3e3 Bdsoa> BoSise OnSaeE Oe Eee oo oAT {NASR OUT SECTOR BITS 
5518 022360 901404 BEG 5$ {BRANCH IF ON ZERO TRACK 
5514 022362 ERROF 1 EMSH, ERR3 
(3) OQeesbe 104462 . - TRAP TSERCOD 
(5) O22364 O00063 . WORD 
(5) gee O08 “WOR 
(5) 23 7650 j * WO a3 
ssis be237 cs: CKLOOP ;CHECK IF /FL:LOE IS SET 
ae] 022372 104006 EM CSCLP1 
5517 374 011377 157524 MOV (R3), aRLDA ;GET DIFF ER NCE WORD 
5518 Besto0 062777 AaaBee 157516 1s #SIGN! MK. JRLDA SET SIGN (TOWARDS SPINDLE) AND MARKER 
B513 o3 06 537 01es5S2 JSR RS, LOFUNC j ISSUE FUNCTION OF FOLLOWING WORD 
552 14 poses? 013362 JSR RS,WTCRDY :WAIT FOR CONTROLLER READY HIGH 
5522 020420 CKLOOP :CHECK IF /FL:LOE IS SET 
me) O2e420 104006 ENT CSCLP1 
S524 ozeuee 004537 o12252 ISR op RS, CHERR ; CHECK CONTROLLER FOR_ERRORS 
me) BSS5u5e 104006 ENT CSCLP1 ; ? 
E527 022430 004537 O13216 JSR RS, WTDRDY ;WAIT FOR DRIVE READY 
c5e8 gee434 iaalaal CKL OOP canine :CHECK IF /FL:LOE IS SET 
Bos! 022496 004537 Ool2252 ISR op RS, CHERR ; CHECK CONTROLLER FOR_ER ERRORS 
5633 O2e442 104006 EMT CSCLP1 ; 
E34 oe2444 O04S27 O1ess2 JSR RS, LDFUNC ; ISSUE FUNCTION OF FOLLOWING WORD 





were aieeweeew ces + -_=- a 


as at ALAA LLL 


_ 


t= 
4 
m 


a 


eH OSBe NEM DD 


nun nn 
WUT (UU 


uw 
tL 
Ww 


uw 


w 


CAUCUS 
NNN NWNOWUNUIWo 


Unni) 
aout 





NO? 


MACY11 sa0cuone? 30-0CT- -77 16:51 PAGE 88-17 
Pll -OCT-77 10:41 #HTEST 43" - EXTENSIVE CHECK OF HEADER CRC SEG CC91 
022450 000010 RDHDR ;READ HEADER 
Oee4Se O004S37 013362 JSR RS,WTCRDY :WAIT FOR EONTROLLER READY HIGH 
becuse CKLOOP :CHECK IF /FL:LOE IS SeT 
0224 104006 EM CSCLP1 
022460 004S37 012252 JSR RS, CHERR ;CHECK CONTROLLER FOR ERRORS 
022464 CKLOOP ‘CHECK IF /FL:LOE IS SET 
O22464 104006 EMT CSCLP1 
2466 011337 002224 MOV (R3) , GDDAT ;GET EXPECTED CYLINDER 
2472 011337 002240 8S: MOV (R3), DWORD ;SET UP DIFFERENCE FOR SEEK 
022476 013737 O02160 o02226 MOV E.MP’ BDDAT READ HEADER FROM RLMP 
022504 043737 002176 OO0ecc6 BIC SECMSK, BDDAT CLEAR OUT SECTOR BITS 
Geesie 023737 O0e22e4 O0e2c6 CMP GODAT , BDDAT :DID SEEK GO TO THE RIGHT 
022520 001404 BEQ 9g - tTRACK, IF SO, GO GET NEXT 
022522 ERROF EMSY, ERR3 
DeeSee 104462 TRAP FEEREOCE’ 
022524 6000 .WORD 52 
2 006023 "WORD EMSY 
022530 007650 “WORD ERR3 
Oees32 Qs: CKLOOP ;CHECK IF /FL:LOE IS SET 
022532 104006 EMT CSCLP1 
2534 013737 002160 o2es5s0 MOV E.MP, 10S ;GET HEADER WORD 
2542 537 013130 JSR RS, StMBCC 30 CALCULATE HEADER CRC 
2546 Go0020 16. 16 BITS 
25 000000 ~ 10$: -WORD O i HEADER GOES HERE 
2s “WORD O :START WITH ZERO CRC 
2554 013737 002206 o22600 MOV CALBCC, 20S 
Oe 3737 O0elbe 022576 MOV E.MP1,21$ 
5 537 013130 JSR RS, SIMBCC 
022574 20 : 16. 
GE5c08 Sone at 1B 
Deeb: ee 002206 002224 MOV CALBCC, GDDAT ;MOVE CALCULATED crc TO GDDAT 
022610 013737 O02164 OOecee MOV E.MP2, BDDAT :GET HEADER CRC FROM RLMP 
Geet 6 3737 OOe2e4 OO0eec6 CMP GODAT; BODAT S CRC: CORRECT? 
Seq 001404 BEQ 11$ :IF SO CONTINUE 
02 ERRDF 53.,EM42,ERRY 
Geese ieucte More paneooe 
e632 gossH4 "WORD EMY2 
022634 "WORD ERRY ; 
Oeeb36 118: CKLOOP ;CHECK iF /FL:LOE IS SET 
26 104006 EMT CSCLP1 
O22640 005723 TST (R3)+ ;BUMP PATTERN 
Oeeb42 020327 o02Sb6 CMP R3. #SKEND :DID WE DO ALL PATTERNS? 
O22646 001402 BEO 12$ i YES, CONT INU 
Deetsd 000137 022170 mr IMP 1§ :NO, GO BACK “FOR NEXT PATTERN 
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MACY11 30110 
O0S-0CcT- 


10400S 


104001 


004537 
104006 
004537 
104006 
013737 


043737 
001461 


104006 
004537 
104006 
004537 
104006 
004537 


) 30-OCT-77 16:51 
7 10:41 

ENDSEG 
10000$: 
ENDTST 
L10071: 
.SBTTL 
BGNTST 
STAR 
: VERTE 
iT Hes 
1$: 

o1esse2 

013362 

0122S2 

002160 oo2226 

002176 O0ece6 

000100 oco2226 

002226 157170 

oocooi 157i6e2 

01esse 

013262 

012252 

013316 

012252 
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#eTEST 43%% - EXTENSIVE CHECK OF HEADER CRC 
;#*#*#*END OF SEGMENT##%# 


;#*#*#END OF TEST #4## 


#*TEST 44e% - VERIFY GET STATUS WHILE DRDY IS LOW 


THAT WE CAN 


;#*#H2START OF TESTH¥¥% 


VAUSNNOUNNDENEOCKA OER AECNRENEAEENBENASENEELNEeHOREEHAEEOEEOS® 
ISSUE GET STATUS AND RECIEVE 


HE STATUS WORD WHILE THE DRIVE IS IN NOTION SEEKING 
5 He ASE HERE AE SE EAE HE SE Ee HE HE HE HE HEE HAE HEHE HEE EEE EEE RRR R ERE RE EE 


MOG MO MOGWUuwsaw - 
9) BAW FAW SAWMWMr-OM- 


G 


TD ACD ACK DMDw<O 


Oo RK 
=] 
v 


i=] 
°o 
v 


° 
°o 
uv 


RS, LOFUNC 
RS, WTCROY 
CSCLP1 
RS, CHERR 
CSCLP1 


£.MP, BDDAT 
SECHSK, BDDAT 


#RHHS , BODAT 
BDDAT JRLDA 


K, JRLDA 
Ro COFUNC 


RS,WTCRDY 
CSCLP1 
RS, CHERR 
CSCLP1 
R5,WTORDY 
CSCLP1 
RS, CHERR 


+ TPAD y FUNG 1 FON OF FOLLOWING WORD 
:WAIT FOR CONTROLLER READY HIGH 
:CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
:CHECK IF /FL:LOE IS SET 


;READ HEADER 
:CLEAR OUT SECTOR 
:IF ON TRACK ZERO, H.S. ZERO, OK 


eT ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK 


;CLEAR OUT HEAD SELECT 

:PUT CYLINDER AS DIFFERENCE WORD 
;SET MARKER BIT 

; ISSUE FUNCTION OF FOLLOWING WORD 


K 
SWAIT FOR CONTROLLER READY HIGH 
;CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
;CHECK IF /FL:LOE IS SET 


;WAIT FOR DRIVE READY 
;CHECK IF /FL:LOE IS SET 


;CHECK CONTROLLER FOR ERRORS 
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#aTEST 44H" - VERIFY GET STATUS WHILE DROY IS LOW 


MACY11 30(1046) 30-OCT-77 16:51 PAGE 88-19 
Pll 0S-0CT-77 10:41 
peseze EKL OOP 
776 104006 EM 
023000 004537 oO1e2es5S2 JSR 
3004 00001 ROHDR 
300& 004S37 9013362 JSR 
Oe30le CKLOOP 
Oe30le 104006 MT 
023014 (CO04S37 Oleese JSR 
023020 CKLOOP 
3020 104006 EMT 
Ge3cee O005037 d0e2e4 “ CLR 
3026 013737 O0e22e6 O02240 MOV 
023034 013737 002160 O02226 MOV 
Geso4e 043737 O0e!76 OO0e22ecb BIC 
001404 BEQ 
ERRDF 
30 104462 TRAP 
023054 oO00066 WORD 
023056 006023 WORD 
023060 007650 WORD 
023062 S$: CKLOOP 
O2306e 104006 EMT 
023064 012777 077601 157032 MOV _ 
023072 0527 ooo00s 157024 BIS 
023100 904537 o12552 JSR 
023104 doO0006 SEEK 
023106 004537 013262 JSR 
G231ie CKLOOP 
0231:'2 104006 EMT 
023114 004537 Ol2es5e JSR 
023120 CKLOOP 
023120 104006 EMT 
Oe3slee 012777 oOoOoo03 156774 MOV 
023130 004537 O125Se JSR 
023134. 000004 GSTAT 
023136 4537 013362 JSR 
022142 CKLOOP 
Ce3site 104006 EMT 
023144 904537 oOleeSe JSR 
3150 ENDTST 
653126 L1007e: 
023150 104001 EMT 
023iS2 BGNMOC HROPRM 
623152 


COS 


;CHECK IF /FL:LOE IS SET 


CSCLP1 

RS,LOFUNC AAD H ENE 1 On OF FOLLOWING WORD 

RS,WTCRDY :WAIT FOR CONTROLLER READY HIGH 
:CHECK IF /FL:LOE IS SET 

CSCLP1 

RS, CHERR ;CHECK CONTROLLER FOR ERRORS 

CSCLP1 :CHECK IF /FL:LOE IS SET 


;CLEAR EXPECTED 

;SAVE DIFFERENCE WORD 
;READ HEADER 

:MASK OUT SECTOR BITS 
;BRANCH IF ON ZERO TRACK 


GODAT 
BDDAT , OWORD 
E.MP. ADDAT 

BECHSK, BDDAT 


54. .EMSY, ERR 
TSERCODE 
S4 
EMSY 
ERR3 
sCHECK IF /FL:LOE IS SET 
CSCLP1 
#77601, JRLDA ;GET DIFFERENCE WORD 
#SIGN!MK,ORLDA :SET SIGN (TOWARDS SPINDLE) AND MARKER 
RS,LDOFUNC s ISSUE FUNCTION OF FOLLOWING WORD 
RS, WTCRDY ‘WAIT FOR CONTROLLER READY HIGH 
!CHECK IF /FL:LOE IS SET 
CSCLP1 ‘ 
RS, CHERR ; CHECK CONTROLLER FOR ERRORS 
:CHECK IF “FL:LOE IS SET 


CSCLP1 
#MK!GSBIT,JRLDA 


RS,LOFUNC’ ; ISSUE FUNCTION OF FOLLOWING WORD 

RS,WTCRDY ;WAIT FOR COnNTRDL LSE neo HIGH 
:CHECK IF /FL:LOE IS SET 

Re CHERR ';CHECK CONTROLLER FOR ERRORS 
;#*##2END OF TEST #HR# 

CSETST 


BGNHRD 
-WORD L10073-LS$HARD/2 
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(33 Qe3276 000014 
{43 0¢3300 000130 
Co) 023326 
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L10073: 
CSRMSG: 
CNTMSG: 


BRMSG: 


VECMSG: 


ORMSG: 
. EVEN 


BGNMOD 


DO8 
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#eTEST Y4ee - VERIFY GET STATUS WHILE ORDY IS LOW 


GPRML CNTMSG,CNT,1, YES 

. TSCODE 

> WORD CNTHSG 

GPRMA CSRMSG,CSR,0, 160000, 177776, YES 
s TSCODE 

7 WOR CSRMS 

“WORD t HEL Mi 

GPRMA VECHSe VECT,0,0,776, YES 

. WOR TSCODE 

WOR’ vEC 


WORD  TSAL 


LIM 
HILIM 

GPRMD BRISG PRIOR, 0, 340,0,7. YES 
$CODE 


. WORD 

> WORD 

“WORD 340 
ie Tats 
GPRRD ORMSG, ORBT,0,03400.0,7, YES 
.WORD TSCODE 
> WORD RMNSG 
“WORD 03400 
‘WORD TSLOLIM 
“WORD TSHILIM 
ENDHRD 

EVEN 


-ASCIZ /BUS ADDRESS” 
/ASCIZ “BR LEVEL’ 
.ASCIZ /VECTOR/ 
-ASCIZ /DRIVE/ 


_ ENDMOD 


SFTPRM - 
BGNSFT 

.WORD L10074-LSSOFT/2 
GPRML OMSG,OLT,1,YES 
-WORD TSCObE 

< DMSG 


- WO i 
XFERF 1% 


a 


FO8 | 
| 
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DERLAA. PLL 05-0CT-77 10:41 #*TEST 44#% - VERIFY GET STATUS WHILE DRDY IS LOW - SEG cogs 
(S) 023306 006044 .WORD TSCODE 
5631 923319 GPRMD ENSG ELT,0,177777,0, 177777, vES 
(4) B83312 OBaa “HORD i590 | 
(4) §533i5 06.338 “WOR 177777 
(4) 023316 000000 [WORD TSLOLIM 
(4) Q23320 177777 “WORD TSHILIM 
5692 023322 1$: GPRML SMSG,SIZE.1, YES 
(4) Q23322 002130 .WORD TSCOBE 
(4) 023324 023354 [WORD SMSG 
(4) 326 o00001 WOR 
S693 023330 ’ ENDSFT 
(2) EVE 
(3) 023330 L10074 
5654 
5699 023330 051104 OSO117 O4744O OMSG: .ASCIZ /DROP ON ERROR LIMIT’ 
700 623354 052531 O47524 O44S523 SMSG:  ‘ASCIZ AUTOSIZE/ 
701 023365 10S OSilee 051117 :  ASCIZ VERROR LIMIT’ 
2538 023402 EVEN 
wf ° 
5708 
2709 023402 ENDMOD 
fe 
S711 23402 LASTAD 
(2) EVEN 
5712 
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*TEST 44e% - VERIFY GET STATUS WHILE DRDY IS LOW 





FOS 


30-OCT-77 16:51 


-TITLE ye 11 DIAGNOSTIC SUPERVISOR 
ENO. es lal +2 


:noRO i) 
XLA1=, 
.END 200 
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| DERLAA. SUP 11-0CT 5 E 


738 SYMBOL TA SEG 0097 


) 
71 


@ 


RABOFLA 3654 G. BLO.HW 031320 CSR___-= 900000 CSREQT= OOO04S EFOe = 000002 G 
ABOPRS 023566 G BLOCK OQ464S4 CSRMSG Oe3eeb C$RESE= 000033 EFO3 = 000003 G 
ABO.FM O0e6S30 BPRIOR 00213 CSTEST 014026 C$REVI= O00001 EFOY = 900004 G 
AODCOD ~ Olelébe G RMSG e3e4 CURR.T O2360e G CS$RPT = 000025 EFOS = Q0000S G 
REG 904301 VEC 02134 ey tink 8 ecae 3 4 = 000047 cECS = 000006 G 
AFTER 013062 BSAAB «(032722 CSA 136 CS$SPRI= 000041 EFO? = Q00007 G 
ALLOC 044320 BSAAF 032634 CSAAE Nhog ba C$SVEC= 00003 EFOS = 000019 G 
ARLBA 004236 B. 002142 CSARK 036766 C$TPRI= Q00013 EFOS = QO00011 G 
ARLCS Q04e231 B.cS 002140 kane ange CSUNBU= 00003! EF10 = 000012 G 
ARLDA 4e44 B.DA 02144 3 a T= el CSWTM = Q000c6 EF11l = Q000123 G 
ARLMP 8.MP 02146 CSADR = 020 C$WTU = 000027 EFle = QO00014 G 
ASAAW  =6030440 CALBCC pose o8 kent = 0000S4 DAHS = 000020 EF13 = Q00015 G 
ASARX 0304 CALLPC= Q0002e CSBRK = Oee DATEST 014250 EF14Y = QOOO16 G 
ASARY 30462 CALLPS= 000024 CSBSEG= Baas peKnes 0034 EF1S = 000017 G 
ASAAZ 30476 CALLSP= O26 C$8SUB= 000002 DECM 042644 EF16 = Q00020 G 
ASABA_ 030506 CALLTC= 9000030 CSBUFF= 000030 pe 003431 ELT = 900002 
BATEST 014146 cA. - St 051036 CSCEFG= O46 DERFLG 002150 EMSG 023365 
BA = 900020 CAL.TI 051074 G kext ee Ole DE = 04 EMT.TR Q23660 G 
BAI? = 000040 CHERR Qleese CSCLP1= 000006 DIAG.T O2e3662e G EM1 004375 
BCCFBK O02e04 HKLUP 032736 CSCVEC= 036 DLT 00 EmMi01 007320 
8CSR 002130 CHKSTR O4466e2 CSOCLN= 900044 DLTMES 003470 EM102 007365 
BODAT  O0ee2b CHKTTY O42750 cepouus 00S3 DMSG 3 EM11 OO4646 
BE 013030 CHK.FO O25146 CSORPT= 4 DPDVD S446 G EM12 004707 
BEGPAT eesé CHK.MA 031076 C$OU_ = OSS DPMUL 53334 G EM14 004741 
BEREG 260 CHK.PC 036164 CSEOIT= QO0006 ORBT = 000006 EMIS | 4767 
BGN.SU= 023402 CHK.SW 024670 CSERDF = Ree ORDY = Q00001 EM16 905015 
BINMSG 2630 CHRCNT O44e02 CSERHR= DRIVE 002136 EM17 00S043 
BITO = 000001 G CH.FLA G30600 CSERSF= 001 DRMSG 9  OQe3e67 EMe 004422 
BITOO = 1G ¢ May 0306ee2 CSERSO= 004 DROP 011114 EM3 OO4447 
BITO) = Oe G CKERLT O12166 CSESCA= 000010 DRPCOD 012156 G EM30 00S076 
BITOe = 000004 G EAR. O3eee0 ese ar = 000s ORST = 000010 EM3e2 005135 
81703 = 000010 G CLKACC 3564 G C i 003 ORT 004347 EM33 00$171 
BITOY = 000020 G CLKBFR OS1040 323 $T= 001 DSPCOD Olll22e G EM34 00S236 
8iTOS = GOO0O4O G CLKCNT 356e G Cc tM 00032 = 000000 EM37 00$313 
B1T06 = 000100 G CLKRES 436 G CSGMAN= 000043 DS1 = 900400 EM4 004474 
BITO? = 000200 ¢.- arte 736 G Sa pOORs DS = 001000 EMY1 005353 
BITOs = 900400 G CLKS 6c6 G CSGPRI= DS = 001400 EM4e OOS444 
BITO9 = 001000 G LK. SE B97 08 eset = BBB TT DUNI 023572 G EM43 oossde 
BITi = 00000e & CLNCOD Q12110 G CSINIT= O11 OVC.FT 036736 M44 OOSE01 
BITi0 = 002000 G CLR. 031154 CSINLP= 0 DWORD O022e40 EM4S 005634 
BiIT1l1 = 004000 & NT __= 900010 CSKWOF= 000035 DSAAG 037606 EM4Y6 OOSE67 
BIiTie = 010000 G CNTMSG Oe3e4e CSKWON= O00034 DSAAH 037624 EM47 005722 
EIT13 = 020000 G NVT 47114 3 ea 04.00 DSAAI 042376 EMS 004S21 
BITi4 = 040000 G COMMTA 6734 CSMANI= QO000S D$SAAT O4e40e EMS2 00$753 
BITiS = 100000 G 3502 C$MSG = 0000e3 OSARK 2420 EMSY 006023 
BIiTe = 000004 G 1462 keont es 000014 DSAAL 2436 EMSS 006062 
BITs = 900019 G CONTCL OS2S16 G CSPNTF= 000017 DSAAM 446 EMS& 006115 
iT’ = OCOLeS G CONTIN 9011344 CSPNTS= OO0016 EF.CON= 000036 G EMS? 006154 
BITS = 000049 G CR = 000200 CSPNTX= 000015 EF.NEW= O00035 G EMG 004572 
Siv&é = 000100 G CRLF 043032 CSPOIN= O00040 EF.PWR= 000034 G EM61 006255 
BIT? = 000200 G CRTIM O0432e C$Q10 = 000377 ’ EF.RES= 000037 G EM62 006336 
BITe = 000400 G CSEND QO02666 C$ROBU= 000007 EF.STA= OOOO4O G EM63 00642! 
SITS = 001000 G CSsPaAT 002570 C$REFG= 000050 EFOL = Q00001 G EM6é4 GO6So2 
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 EMES 006565 FREE O44SS6 GSOFFS= 000400 I$SUB = 000041 L$SPC. 902030 G 
EMGS CObEYE FRMT1 Q10432 GSOFSI= 000376 i$TST = OOOO41 L$S5PCP O002e050 G 
EME? 506731 FRMT11 010724 GSPRMA= 000001 J$JMP = 000167 L3SPTP O02060 G 

rd 004620 FRMTl2 010765 GSPRMD= 0000 KBPTR 023434 G L$STA  O020BE G 
EM?’ 006766 FRNTLS 011094 G$PRML= 9 000 KBUF 023436 G L$Sw O11114 G 
EMT 1 007023 10472 G$SRADA= 000140 LOCSR 2174 LSTIML OO0e022 G 
EM? 007060 FRMTCA O10S11 GSRADB= 9 oo LDFUNC 012856 L$TIMU OO2020 G 
EM73 007113 FRMTeB 010524 G$RADD= 000040 L 0 LSTIMI COlE G 
EM74 007146 010553 GSRADF= 200 LINE.F O23656 G L$TSTI 002074 G 

M7S 007206 FRMTY 010560 GSRAD = 120 LINEL 010102 L$UNIT 002014 G 
EM76 007232 FRMTS O10616 RADG= 029 LINED 910136 L.CLK. O30166 
EM?? 007265 FRMT& 010667 G$RADT= 000100 LINES 010360 iiooce 907572 
EiGrar Dosues Fea "= Sos6t8 eREs"= G0001G renee Geeks tigope Bo7eve 
+ 4 = 
END. 032206 FSBGN = : p43 ALMAX pe48 Leer eR §35035 G t 10003 607538 
END.SU= 054352 FSCLEA= 000007 HCORED 030362 LPCNTR 023430 G L10004 007766 
EOP.CH 052760 G F = 16 9 30242 LPT.AD 030220 L1000S 010000 
EOP.FM O26S44 FSEND = O00041 HCO 3614 G LPT.RE 030214 L10006 o1004e 
EOP.IN 030616 FSHARD= 000004 »  HERC 3450 LSI.RE 030210 L10007 010106 
ERR = 109000 FSHW = go0o13 HOR o02670 LUP 050742 L10010 QOl11i12 
ERRFOR 037154 FSINIT= 000006 HORLST 012772 LUP.AD 036166 L10011 Ol112e 
ERR 036170 FSIMP » OO00SO HERTZ. O30202 L$AU 012162 G L10012@ O12106 
ERRLMT OO02246 FS$MOD = 000000 HNF MES 03456 LSAUT 902079 G L16013 012154 
ERRVEC o9ee0e $MSG = 000011 HOLDSP= 020 L$CCP 2044 G L10014 Ole160 
ERR. 3 FSPWR = 000017 HPTCOD 011076 G L$CLEA 012110 G L10015 012164 
ERR.SF 036752 FSRPT = 990012 HROPRM 3152 G L$DEPO 002011 G L10016 913314 
ERRO 007556 G FSSEG = 000003 HSA’ 744 LSDEVP 002052 G L10017 013532 
ERR} 007574 G F$SOFT= 000005 ININIT 923604 G L$DISP 011124 G L10020 013626 
ERRIFO 037240 FSSRV = 000010 INITCO 011254 G LSOR 002102 G L10021 013722 
E 007606 G F$SuB = 000002 INITIA O42660 L$DRCT O02062 G L1i002e2 O14016 
ERR3 007650 G FSSW = OO0014 INIT.M o3icee LSDRS 002064 G L10023 014136 
ERRY 007722 G FSTEST= 000001 INIT.R Oe3416 G LSORST O02102 G L1902e4 014240 
ERRS 007770 G BAG pa4eo4 {NFUTA gn 36 6 L$SDTP goe040 G L10025 014326 
ERRE Gl G GDDAT 2224 NTEN = 000100 L$DuU 012156 G L10026 oO144S52 
ERR? 010044 G GE TCHR ouez 10 INTFLG 002172 L$DUT 002072 G L10027 014576 
ESC.PC 036162 GE TCMN 6274 INTFOR 037104 L$DVTY O02104 G L10030 914702 
£.BA 0021 TPAR 037766 INTSRV 013310 EF 002024 G L1003! 615002 
E.cS 002152 TSWI  uge70 INVAL. 030330 LSEXP1 OO02032 G 110032 015072 
E. DR 002156 T. Tid Oue04 INVINT 036 76 L$EXP2 002034 G L10033 015172 
E. MP 002160 GLBODAT OO2i12e G INV.SW O2e4624 LSEXP3 002036 G L10034 015302 
E.MP1  O0el6e GLBE lle G IN.SUF 032172 LSHA 023154 G L10035 015354 
E.MP2 002164 GLBERR 007556 G ISAU = O41 LSHPCP GO2046 G L10036 Oi54ie 
FILL 9043500 GLBS 012166 G ISCLN = O41 L$SHPTP O02056 G L10037 015536 
FILL.C 000204 G GLBTXT 003370 G 1$0U = OO0041 LSHW 011100 G L10040 015676 
FIRST 002230 GODRVR= 000202 ISHRD = 000041 L$ICP O02042 G L10041 016036 
FIX 013016 GSBIT = 000002 ISINIT= OOO0041 L$INIT O11254 G Lico42 016242 
FLAGS - 9023624 G GSTAT = OO0004 I$MOD = 000041 L$LADP 002076 G £10043 016272 
FLAGTA O466 GSTINT 904172 ISMSG = 041 L$LAST O2340e G Li0044 016476 
FLAG.I O20664 GSTMES 00413 ISPWR = 000041 LSMREV O02012 G L1004S Ol16S62 
FLA.SE O46E20 G$EXCP= 000400 ISRPT = 000041 LSNAME OO02000 G L1004%6 016726 
FLG.MA 920624 G$HILI= 000002 I$SEG = 000041 LSREPP 002054 G (10047 Ol187S6 
FNOFNC 912770 G$LOLI= O00001 I$SFT = O00041 LSREV_ 002010 G L190SO 917044 
FORM.7 037256 G6$NO = 900000 IgSRv = 00004! L$SOFT 023300 G Li00S1 Oi:7132 
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| DERLAAR. SUP 11-OCT-77 15:38. SYMBOL TABLE . SEG C100 
| THe 021634 G USER.T 023610 G WRCHK = 00000e XEQG.PR 02575 ¥1Xi_ = 072000 
T43 Ozelbe G UUT 002114 WRITE = O000le XEG.TE QO32e472 $GRE 030676 
| Tad Deeb60 G VALID. Oe4050 WTCRODY O1336e XPOLY Q0e200 SENOAD O52766 
| 75 0140e0 G VAL.LA 024600 WTORDY 23318 ere 1See G $sAve 954032 
| 16 014140 G VAL. 30636 XEQDIA 3014 G XTIMEN OS2346 $SAV 
Ti Ol4e4e G VECMSG Oe32e60 XEQSUB 2002 G XTIMST 154 $SA 
T 014330 G VECT = 900002 XEQ.CL O326Se XXOP.0 030370 $SA 054104 
T O144S4 G WCKINT 003706 XEQ.CM 030160 X$ALWA= OO00000 , = 0720060 
002116 WOKMES OO03646 XEQ.IN O32534 X$FALS= OO0004%0 
. See WHY O0eeSO . XEG.LA O26S16 XSOFFS= Q004C0 
USER 023606 G WIOTH O37642 XEQ.0P O32426 X$TRUE= 000020 


- ABS. O72000 00c 


ERRORS DETECTED: O 


DSKZ: DZRLAA, OSKZ: DZRLAA=DZRLAA. SML,OZRLAA.P11,DZRLAA. SUP 
RUN-TIME: 36 40 .9 SECONDS 
RUN-TIME RATIO: 342/77=4.3 
CORE USED: 18K (35 PAGES) 
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